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Introduction 



Why for adults only? Why not! It seems as though the electronic 
games of today are geared toward the young. There are not too 
many adults that will go to the corner arcade to play the latest video 
craze, so why not have some games that adults can relate to? Here 
they are! A collection of 33 programs, just for us adults! 

Each program marked with an asterisk in the Table of Contents 
contains a sound output routine (see Chapter 1). This sound output 
will never compare with that of arcade games, but it keeps your 
computer from being dead silent! This routine was written on and 
for a Radio Shack TRS-80 Model I Level II computer system. With a 
little modification it will work on the Radio Shack TRS-80 Model III 
Level II computer system. Apple users find a separate sound 
routine and accompanying explanation at the end of chapter one. 

If you have an IBM PC, you can skip the first chapter of this 
book entirely— the IBM is a born musician, IBM users will find 
sound (and honest-to-goodness music!) in programs besides those 
noted in the table of contents. Since the IBM PC doesn't require a 
machine language routine to create sound and music, adding them is 
easy. You may find yourself composing background music for every 
program in the book! 

All thirty-three programs in this book were written on and for 
the TRS-80 computers mentioned above, but notes on converting 
the programs for the IBM PC and APPLE 11+ or He have been 



included in Appendix C. Separate listings for the Apple and the IBM 
have been included for any programs which make extensive use of 
sound and/or graphics, as noted in the table of contents. The IBM 
programs were written with the color/graphics adapter in mind, but 
suggestions are included in Appendix C for using the programs with 
a monochrome screen. 

If you own a computer system different from those mentioned 
above, you can still enjoy this book. You should be familiar enough 
with BASIC to know which commands your computer uses, so that 
you can make any needed changes. Look at the different versions of 
the more complicated programs. Chances are, one of them will work 
on your computer with just a few changes. Graphics are diehardest, 
but since many of the programs use text screen characters, you 
should be able to adapt them. Look at the charts in Appendix D and 
visualize the graphics as described in the program; then adapt them 
to the commands your computer uses. 

Most of the programs require at least 16K (kilobytes) of ran- 
dom access memory, but some of the simpler ones use less. 

All programs were designed with care, and all have been 
completely debugged. With each program you'll find: 

A brief outline describing in short what the program is about; 

A flowchart to help you understand the program ; 

A sample run to let you see what the program is actually going to do 

before you run it ; 
The program listing with ample REM statements in case you decide 

on making your own changes; 
A list of variables and strings and what each perform within the 

program ; 
Line explanations indicating line-by-line what the program is doing 

and what steps each line is performing. 

Most of the programs can handle several different players. 
Some allow up to 10 people to play at once. One program, in the final 
chapter can handle 15 different players at once! 

The final chapter of the book is devoted to parties or friendly 
get-togethers. Here you'll find six fast action games. If you decide 
to bet real money, you can be assured that the computer will keep 
track of each cent. All games within this chapter are fair, meaning 
that the computer will do no cheating, no one sided favors to keep 
the same person winning and no printing of false amounts. Of 
course, all of the programs in the book are like that, except for one. 



So sit back, relax, and enjoy! You do not have to hide this book 
from your ciiuurcn. iL contains no auuu situations or iou* 
language—j ust * ots of action! 
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The Sound Routine 

The sound routines in this chapter are used to enhance your enjoy- 
ment of a number of the game programs in the book. Feel free to use 
the techniques you learn here to introduce sound into your own 
programs. 

THE SOUND ROUTINE FOR THE TRS-80 

There are two ways you can use the sound routine described in 
this section. You could make a small driver program and place it on a 
tape different from your program tapes. You could also make a 
driver program by creating a machine language tape, using the 
TBUG program or the EDITOR/ASSEMBLER program available 
at your local Radio Shack store. 

If you plan to use sound routines with your TRS-80, you'll need 
a small amplifier/speaker. Radio Shack's stock number 277-1008 
will meet your requirements. If you use TBUG to make your own 
driver, use the filename SOUND as a title. When you enter it using 
the system command and the computer returns with ? press the 
break key and your driver will be ready. (Only those who own a 
TBUG program need concern themselves with these instructions.) 

The method I will discuss now requires nothing more than a 
blank tape. I will present separate routines for 16K, 32K, and 48K 
systems. (I will give the routine for 4K at the end of this chapter.) 
Each routine is a short program in itself and as stated, should be 
kept on a separate tape. 
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16K — ANSWER MEM SIZE? 31231 

10 FOR l=:^l^2 TO 31268 

20 EEAD AIFOKE I,A 

30 NEXT 

40 POKE 16526,0!FOKE 16527,122 

50 DATA 221,33,33,122,221,70,0,0,1 

60 DATA 37,122,221,70,1,62,1,211,255 

70 DATA 16,254,221,70,1,62,2,211,255 

80 DATA 16,254,13,194,11,122,30,10,0,201 

32K -- ANSWER MEM SIZE? 47615 

10 FOR 1=47616 TO 47652 

20 READ A SPOKE I, A 

30 NEXT 

40 POKE 16526,0IPOKE 16527,136 

50 DATA 221,33,33,186,221,70,0,0,1 

60 DATA 37,186,221,70,1,62,1,211,255 

70 DATA 16,254,221,70,1,62,2,211,255 

80 DATA 16,254,13,194,11,136,30,10,0,201 

43K -- ANSWER MEM SIZE? 63999 

10 FOR 1=64000 TO 64036 

20 READ AIPOKEI,A 

30 NEXT 

40 POKE 16526,0IPOKE 16527,250 

50 DATA 221,33,33,250,221,70,0,0,1 



60 DATA 37,250,221,70,1,62,1,211,255 
70 DATA 16,254,221,70,1,62,2,211,255 
80 DATA 16,254,13,194,11,250,30,10,0,201 

Remember, use only the program that fits your system's 
memory size. Be sure also that line 40 is used (initialization). This 
line is very important. You will have no sound output without it. 

Each of the programs that contain sound are written for a 16K 
system. If you have a 32K or 48K system, you will also have to 
change the variables for sound output. Turn to a program that 
contains sound output. You will find that the variable (for instance 
MC in line 370 in the Master Code program, or SS in line 295 in the 
Hold Time program) is set to 31266. For a 32K system, change the 
figure (and all others in the other programs) to 47650. For a 48K 
system change that figure to 64034. I designed the programs for a 
16K machine because I believe this is the size system most people 
buy, (I could be wrong!) If I had included figures for the other 
systems, it would have made the programs confusing. Just be sure 
to change these figures for a 32K or 48K and you'll encounter no 
problems. 

If you've created the sound program for your system, you are 
now ready to try some experiments with sound. Remove the plug 
that is marked AUX from your recorder and plug it into the small 
amplifier/speaker that I described earlier. (Be sure there is a fresh 
battery in it.) Turn it on to a moderate to low volume. 

10 REM EXPERIMENTS WITH SOUND 

20 N=10JA=31266{REM A=47650 FOR A 32K - A=64034 FOR A 43K 

30 POKE A,N 

40 X=USR(0)JREM CALL ROUTINE 

50 FOR T=l TO 30SNEXTJREM PAUSE 

60 IF N>=255 THEN 80JREM 255 LIMIT FOR VARIABLE 

70N=N+l!GOTO30 

SO END 



Now run the program. You should hear sounds coming from the 

arnt-Jifior /cnoql/or Arliiiot- +\~icl vr>lM*T>f» O n if if nf»r\QC.c;3?*v . Tf \rnil Hn 

not have sound, recheck the driver (machine program) to see if you 
entered all figures correctly and make sure that the initialization 
(line 40) has been completed. If you are receiving sound, the pitch 
will continue to become lower as the variable N becomes higher. 
When N reaches 255, the program will end. Never use a number for 
N that is below 10 or greater than 255. 

For a dual output, add these lines to the program in residence: 

41 IF N<= 254 THEN POKE A.N+1 : X = USR(O) 

Run the program with the above line, then add: 

42 POKE A.N-1 : X = USR(O) 

This time delete the pause loop, line 50, and run again. Any time you 
want to stop the program (if N<255) press the break key. For 
strange sounds, add these two lines and run the program. 

43 Q = RND(255):IFQ<10THEN43 

44 POKE A,Q : X = USR(O) 

After experimenting with the above, delete lines 41-80 and add 
the following: 

50 A$=INKEY$ 

60 IF A*= n " THEN 30 

70 IF N>=255 THEN 90 

80N=N+l!GOTO30 

90 END 

The complete program should look like this: 

10 REM EXPERIMENTS WITH SOUND 

20 N=10:A=31266tREM A=47650 FOR 32K - A=64034 FOR 48K 

30 POKE A,N 



40 X=USR(0)5REM CALL ROUTINE 

50 A$=INKEY* 

60 IF A$= n " THEN 30 

70 IF N>=255 THEN 90 

80N=N+liGOTO30 

90 END 

Now run the program above. Each time you press any key, the 
tone gets lower. After you've experimented with this program, type 
NEW and enter the following program: 

10 REM MAKE A TUNE 

20 DIM NUOOKREM FOR UP TO 100 NOTES 

30 REM WILL USE KEYS A,B,C,D,E»F,G 

40 A= 1 05B=50 JC =80 ID* 1 00tE= 1 505F=200 JG=225 

50 I=1!AA=31266!REM A=47650 FOR 32K - A=64034 FOR 43K 

60 CLSJPRINT"TO HEAR YOUR TUNE" 

70 PRINT'TRESS THE SPACE BAR." 

80 PRINT"START COMPOSING, USE THE" 

90 PRINT"LETTERS A,B,C,D,E,F,G U 

100 A$=INKEY$ 

110 IF A*=" M THEN 100 

120 IF A*=" " THEN 310JREM SPACE BAR 

130IF A*="A" THEN 210 

140 IF A$="B" THEN 220 

150 IF A$="C" THEN 230 

160 IF A$= ,, D U THEN 240 

170IF A*= M E" THEN 250 



180IF A*-"F" THEN 260 
190IF A*="G" THEN 270 

200 GOTO 100 

210 POKE AA,AiN(I>=A!GOTO 280 

220 POKE AA,B:N(I)=BiGOTO 280 

230 POKE AA,C:N(I)=C:G0T0 280 

240 POKE AA,D!N(I)=D!GOTO 280 

250 POKE AA f E:N(I)=EJGOTO 280 

260 POKE AA,F;N<I)=F:G0T0 280 

270 POKE AA,G:N(I)=G 

280 X=USR<0>JREM CALL ROUTINE 

290 IF I>=100 THEN 310IREM N(I) FOR NOTES IN TUNE 

300 print a$i:i=i+i;goto 100 

31ot=i-i:frint 

320 print n speed of playback (fastfmedium^slow) 11 

330 INPUT n i,2 OR 3 ,, }TT:TT=TT*20 

340 FOR 1=1 TO TJIF N(l)=0 THEN 370 

350 POKE AA,N(I)IX=USR(0) 

360 FOR F=l TO TTtNEXT F»I 

370 PRINT 

380 PRINT"END OF YOUR TUNE," 

390 END 

Run the above program and compose different tunes. You may 
be able to tell from the tones that I am no musical expert! You can 
experiment with the constants at line 40, A-G, to come up with some 
tones of your own. Remember to keep these constants between 10 
and 255, 10 will be the highest tone you can achieve, and 255 will be 



the lowest. Of course, you have all the numerals between 10 and 255 
to experiment with. The program lines are explained below. 

Line 20 dimensions the N array so that 100 notes can be placed 
into your tune. You can either increase or decrease this amount, 
depending on what you are planning to compose. 

Line 30 is a remark indicating which keys will be used. 

Line 40 defines the constants for the 7 different notes (A-G). 
You can change these to whatever you choose as long as the 
numbers are between 10 and 255. 

Line 50 sets or initializes the counter I and the poke location, 
AA, Always remember that these constants are geared to a 16K 
system, here, and throughout the book. If you have a 32K system, 
this constant will be 47650. If your system is a 48K system, the 
constant will be 64034. 

Lines 60-90 are simple print statements. 

Line 100 sets up the INKEY$ function for the keys that you will 
press. 

Line 110 causes the program to loop to line 100 until a key is 
pressed. 

Lines 120-190 identify the key that was pressed, Whenever 
you press the space bar, the computer assumes that all of your notes 
are in and the tune is replayed for you. Otherwise, the computer will 
only notice keys that are within the arguments and branch to the line 
specified when they are pressed. 

Line 200 loops back to line 100. This assures that the program 
will not fall, continue if any key other than those specified is 
pressed. 

Lines 210-270 poke the value of the constant for the key that 
was pressed into location AA. This value will then be placed into the 
subscripted variable N(I) for playback. The tune you enter will be 
played back exactly as you input it. 

Line 280 will call the sound routine so you'll hear the note 
(sound) that you have selected immediately. The letter X can be any 
other letter that you choose so long as it is not used anywhere else 
within a program; that is, if you want you could use the letter 
Z:Z=USR(0) would be valid for the above program, but if you use 
A = USR(0), you would lose the constant you had for A and an error 
would occur in your program. 

Line 290 will test the amount of counter I. If it has reached 100, 
the limit for the number of notes, the program will branch to line 
310. 

Line 300 will print the key you have pressed (if valid), advance 



the counter by 1, and return to line 100 for another key closure. 

Line 310 initializes the variable T to 1-1 tor the playback ot all 
the notes you entered, provided that the space bar was pressed in 
line 120. 

Lines 320-330 ask you at what speed you want your tune 
replayed. The amount you enter, 1, 2, or 3, will be multiplied by 20 
and used in a for~next loop throughout the playback. You can ex- 
periment with different values of TT if you so choose. For example, 
TT=TT*20 could be changed to TT=TT*10, for a faster playback. 

Lines 340-360 contain 2 loops: one for notes entered and the 
other for a pause during playback. The second statement in line 340 
will end the program if one of the notes is equal to (zero). It's 
unlikely that one would be, but the statement is there to be on the 
safe side. Line 350 then pokes the value that is in the appropriate 
location in the N(I) array into location AA and calls the sound routine 
with X =USR(0). Line 360 forms the pause or delay loop used during 
playback, and also contains the next statement for the notes (I). 

Lines 370-390 terminate the program when all notes have been 
played back. 

From all these examples, you should have the general idea of 
how to use your sound routine. If not, you should review the 
material before you tackle writing programs that will include sound. 
If you plan to write your own programs with sound or to add sound to 
some that you now have, do not add the sound routine to a program 
that uses the CHR$(23) function (double size). Take my word for it, 
it will not work ; you will receive nothing more than error messages. 

If you own a 4K system and you're still scratching your head 
wondering what the sounds are like, you're in luck! Here is the 
driver for the 4K system (LEVEL II). Remember, the programs in 
this book are intended for machines with at least 16K of RAM. This 
4K driver doesn't mean you can enter and run the other programs. 

ANSWER MEM SIZE? 20223 

10 FOR 1=20224 TO 20260 

20 READ AIFOKE I,A 

30 NEXT 

40 POKE 16526,0IPOKE 16527,79 

50 DATA 221,33,33,79,221,70,0,0,1 
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60 DATA 37,79,221,70,1,62,1*211,255 

70 DATA 16,254,221,70,1,62,2,211,255 

30 DATA 16,254,13,194,11,79,30,10,0,201 

To receive sound POKE a numeral between 10 and 255 into 

location 20258 and CALL the routine* Example* 

100 A=20258 

110 POKE A,50tX=USR(0) 



Enter and run all of the above. You will hear a short beep from the 
amplifier/speaker. Remember that the address that you will poke a 
numeral into is 20258. Anytime you desire to hear a tone, use 
USR(O) (CALL,X=USR(0)). You can enter and run all of the short 
programs that are in this chapter on the 4K system. 

For all of the systems, remember to keep the driver that fits 
your machine RAM on a separate tape to use whenever you are both 
to use a sound output on a program and always answer MEM SIZE? 
with the correct constant when booting-up your system to protect 
the area where the sound routine is residing. Once loaded into 
memory, the driver will remain there until the power is turned off. It 
cannot be lost when you type NEW or enter a different program 
through BASIC. 

To use any of the programs that contain sound without the 
sound output, delete all of theU=USR(0) statements (machine 
language calls) from the program. 

SOUND ROUTINE FOR THE APPLE II 

The following program for the Apple II computer was written 
and tested on a 48K system. To use it, you may either type it in at 
the beginning of each program using sound— a lot of work, but 
simpler at "run-time," or save it on a disk to be loaded each time it 
is needed for a program. The Apple II versions of programs in this 
book contain the commands to load and "call" the routine with the 
assumption that you will have it saved on the same disk with your 
programs. 

To use the routine on your program disk, first type in the 
program below and run it. The program will take less than a minute 
to run. then type in the following command; BSAVE SOUND, 



A$300,L$1 E and press the return key. The program will now be on 



SOUND 

10 FOR 1=768 TO 797 

20 READ A: POKE I, A 

30 NEXT 

40 DATA 0,0,0,172,1,3 

50 DATA 174,1,3,173,2,3 

60 DATA 32,168,252,173,48,192 

70 DATA 232,208,253,136,208,238 

80 DATA 206,0,3,208,230,96 

The SOUND program for the Apple II is based on material 
developed by Jesse Sturgis and is used by permission. 
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Games of Skill and Logic 

The Course challenges you to react quickly in order to maneuver 
your vehicle safely down an ever-changing course. 

Words-Zit presents coded messages for you to decipher. The 
code is new each time you load the program. 

Math-a-Code gives you a chance to test your prowess in 
addition ... but each digit is represented by a letter! 

Master Code is another code game, but this time each letter is 
represented by a different tone. 

Driver's Test allows you to test your reflexes and avoid 
collisions without risking the family car. 

What Is It? is a competitive game that tests your ability to 
guess words using clues that become progressively more specific. 
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THE COURSE 

You will be required to have top-notch driving abilities as you 
negotiate the 10 laps of this challenging course. Be careful not to 
make the slightest contact with the edge of the track because each 
time you do, it will count as a hit. You will control the vehicle with 
the left and right arrow keys. Note that the IBM version of this 
program is included in Appendix A. 



Sample Run 

>» THE COURSE <« 

REQUIRE INSTRUCTIONS? YES 

THE COURSE WILL REQUIRE THAT YOU 
USE TOP NOTCH REFLEXES TO CONTROL 
YOUR VEHICLE THROUGH A DISTANCE OF 
10 LAPS, THE COURSE WILL BE BOTH 
STRAIGHT AND WINDING, YOU WILL 
CONTROL YOUR VEHICLE WITH THE 
LEFT AND RIGHT ARROW KEYS. 
THE SLIGHTEST CONTACT WITH THE 
EDGE OF THE TRACK WILL CAUSE 
AN ACCIDENT, AND A HIT WILL BE 
ADDED TO YOUR SCORE. 
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PRESS A KEY . . . 

FiRST NAME OF DRIVER? WALLACE 

WALLACE STRIKE A KEY TO BEGIN . 
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Program Listing 



10 REM PROGRAM TITLE: THE COURSE 

20 CLS: PRINT TAB< 10 ) ; 

30 PRINT" >>> THE COURSE < < < " 

4 PRINT 

50 INPUT"REQUIRE INSTRUCTIONS" ; X$ 

60 IF X$="N" OR X$="NO" THEN 210 

7 PRINT 

80 PRINT"THE COURSE WILL REQUIRE THAT YOU" 

90 FRINT"USE TOP NOTCH REFLEXES TO CONTROL" 
100 PRINT"YOUR VEHICLE THROUGH A DISTANCE OF' 
110 FRINT"10 LAPS THE COURSE WILL BE BOTH" 
120 FRINT"5TRAIGHT AND WINDING YOU WILL" 
130 PRINT"CONTROL YOUR VEHICLE WITH THE" 
140 PRINT"LEFT AND RIGHT ARROW KEYS." 
150 PRINT"THE SLIGHTEST CONTACT WITH THE" 
160 PRINT"EDGE OF THE TRACK WILL CAUSE" 
170 PRINT"AN ACCIDENT, AND A HIT WILL BE" 
180 PRINT"ADDED TO YOUR SCORE . " 
190 PRINT: PRINT: PRINT"PRESS A KEY..." 
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200 X$=INKEY$:IF X $ = " " THEN 200 

7in Ct.B:T-1-' AT— 1 

220 INPUT n FIRST NAME OF DRIVER" ;D$ 

225 IF D$="" THEN FRINT:GOTO 220 

230 PRINT D$;" STRIKE A KEY TO BEGIN..." 

240 X$==INKEY$ : IF XS = ,,n THEN 240 

245 IF T>=2 THEN CLS:GOTO 260 

250 CLS :DIM CX( 18) ,CY( 18) 

26 PRINT@0 , "DRIVER: " ;D$ ; : GOSUB 10 00 

265 CC = :LF = :LL = ;HI=0 : ' THE COURSE 

270 CX=15388 : CY=CX+9 : J=191 :C=1 

275 CI = CX + 3:C2 = Cl+2: ' VEHICLE 

280 IF CY>=16383 OR C 1 > ^ 1 6 3 8 3 THEN 400 

285 IF CCssl THEN 420 

290 POKE CX,J:FOKE CY , J 

295 CX(C)=CX:CY(C)=CY: * TO BLANK OLD COURSE 

300 CX=CX+64:CY=CY+64 

305 C=C+1 

3 1 DD=RND(2 ) 

315 KY=PEEK(14400):' KEYS 

320 IF DDrl THEN 340 

330 CX=CX+DD-1 : CY=CY+DD-1 : GOTO 360 

340 DD=-DD 

350 CX=CX+DD:CY=CY+DD 

360 ' CHECK FOR MOVEMENT (VEHICLE) 

370 IF KY=32 THEN 500 

380 IF KY = 64 THEN 530 

390 GOTO 2 80 

400 CC=1 : LP=LP+1 

405 IF (LP/iO>*.6 THEN LL = LL + 1 : L F = 1 

410 FRINT@64, "LAPS =";LL; 

415 IF LL>=10 THEN 700 ELSE GOTO 270 

420 POKE CX(C) ,32:FOKE CY<C>,32 

430 POKE CI , 32 : POKE C2 , 32 

440 IF C2>-16319 THEN 290 

450 Cl=Cl+64 : C2=C2+ 64 

460 POKE Cl,183:POKE C2,187 

470 CL=PEEK(C1-1): CR= PEEK ( C2 + 1 ) 

480 IF ABS(CL+CR) <>64 THEN 600 

485 GOTO 290 

500 ' VEHICLE MOVEMENT (LEFT) 

505 POKE Cl,32:FOKE C2,32 

51 CUCi-1 : C2 = C2-1 

5 20 GOTO 2 80 

530 ' VEHICLE MOVEMENT (RIGHT) 

535 POKE Cl,32:POKE C2 ; 32 

540 IF C2>=16319 THEN 280 

550 Cl^Cl+l : C2=C2+1 
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56 GOTO 280 

600 ' HITS TO VEHICLE 

610 HI=HI+1 

620 FRINT@128, "HITS = " ; H I ; 

63 GOTO 29 

700 ' FINISH 

710 PRINT@192 ,CHR$<30> 

720 IF HI*:0 THEN 800 

730 FRINT"YOU DIDN'T MAKE THE "; LL ; " LAPS " 

740 PRINT"WITHOUT ERROR. YOU TOOK A" 

750 PRINT"TOTAL OF " ; H I ; "H I TS . . . , " 

760 FRINT H TRY AGAIN, ";D$; 

770 INPUT X$ 

780 IF X$="N" OR X$="NO" THEN 1100 

79 AT=AT+1 : PR INT: GOTO 83 

800 PRINT"1M0T BAD! NO HITS AT ALL!" 

810 FRINT H TH1NK YOU MIGHT WANT TO" 

820 GOTO 76 

830 T(T)=HI:' BEST SCORE 

835 IF T<=1 THEN 920 

840 1=1 : Z=0 

850 IF TdXsTdtl) THEN 880 

86 YS=T( I ) :T< I )=T( 1+1 ) :T< 1+1 )=YS 

870 Z=l 

880 1=1+1: IF I>«T THEN 900 

8 90 GOTO 8 50 

900 IF Z»l THEN 840 

910 BS=T(1> 

920 T=T+1:IF T> = 5 THEN BS=T(1):T=3 

930 PRINT 

940 PRINT:GOTO 230 

1000 ' MESSAGE 

1010 IF T< = 2 THEN 1040 

1020 FRINT042 , "BEST SCORE: ";BS; 

1030 PRINT© 10 6, "ATTEMPTS: " ; AT ; 

1040 RETURN 

1100 ' END 

1110 CLS 

1120 PRINT n END OF PROGRAM RUN..." 

1130 END 

The Variables and Strings 

X$ - General purpose for input commands 

T - For users' scores 

AT - Total user attempts 

D$ - Name of driver 

CX & CY (subscripted) for left and right sides of the lane 



17 



CC - General purpose variable. When CC is equal to 1, the previous 

track will be reset as a new course is poked. 
LP - When this variable is divided by 10, one lap will have been 

completed 
LL - Total laps 

HI - Total hits per 10 lap period 

CX, CY & J - For lane placement, poked into video memory 
CI & C2 - For shape of vehicle, poked into video memory 
C - Used in conjunction with subscripted variables CX & CY to poke 

previous track with blanks, CHR$(32) 
DD - A random amount to move track (shape) left or right 
KY - For user key closure: Left arrow to move vehicle left and right 

arrow to move vehicle right 
CL & CR - Used to detect when a user's vehicle has hit the side of 

the lane 
T(I) - For users' best run 

Z - General purpose, used to insure that the best run is correct 
BS - Best score obtained 

Explanation of the Program Lines 

Lines 20-200 print all instructions, if they are needed. 

Line 210 initializes two of the variables. 

Lines 220-240 asks for the user's first name and a key press to 
begin the game. 

Line 245 skips the dimension statements, if they have already 
been used. 

Line 250 is the dimension statement for the subscripted vari- 
ables CX and CY, which poked the locations of the left and right 
sides of the lane. 

Line 260 prints the driver's name and then branches to 1000 
(GOSUB) where best score and total attempts are printed if the 
variable T is greater than or equal to 2. 

Line 265 initializes more variables: CC for the blanking of the 
old or previous lane, LP for each lap, LL for total laps, and HI for 
total hits. 

Lines 270-630 poke the left and right sides of the lane until the 
bottom of the video is reached. Then the vehicle is poked at the top 
of the video. The old course is then followed, using the left and right 
arrow keys, and the vehicle moves toward the bottom of the video. 
While all of this is taking place, the old lane (behind the vehicle) is 
blanked out and a new course is poked. The user will not be 
grounded for 'hits' to the old lane, just the new, which is being poked 
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while he or she is driving. This is decided by the absolute amount of 
CL+CR. If this amount is not equal to 64, a hit has been made to 
either side of the lane, If LP/10=6, one lap has been completed, 
and LL is then advanced by one. If LL> =10 (laps) the program 
branches to line 700, where the score is tallied and the user is asked 
if he or she wants to try again. 

Lines 840-900 determine the best score. The program con- 
tinues to loop here until T(l) is the lowest number of hits. When 
equal to 1 variable Z indicates that the lowest has not been reached, 
so the program branches back to line 840 and begins again. 



19 



INTERCHANGE: A FOR M, 
E FOR J, C FOR R, Z FOR D, 
? FOR ??, AND THAT OTHER 
LETTER WAS ? FOR L 



WORDS-ZIT 

In this game you'll be faced with decoding 20 different mes- 
sages formed by interchanging all of the letters of the alphabet, 
except for E, I and 0. Each message will look like a bunch of 
garbage, but after you have decoded the first message, the last 19 
shouldn't be so hard! The program uses INKEY$. If you make 
a mistake, use the left arrow key to backspace over your mistake 
and then continue. 

Sample Run 

INSTRUCTIONS? YES 
WORDS-ZIT 

YOU WILL BE FACED WITH 20 DIFFERENT 
MESSAGES TO DECODE. ALL THE 
LETTERS OF THE ALPHABET HAVE 
BEEN INTERCHANGED, EXCEPT FOR E, 
I, AND O, WHICH REMAIN THE SAME. 
IF YOU MAKE IT THROUGH THE FIRST 
MESSAGE, REMEMBER WHICH LETTERS 
WERE CHANGED WITH WHICH, THEN THE 
FOLLOWING 19 SHOULDN'T BE SO HARD. 
TYPE SLOWLY, DON'T BE IN A HURRY. 
THE PROGRAM USES INKEY$, IF YOU 
MAKE A MISTAKE, USE THE LEFT 
ARROW KEY TO BACKSPACE. 
PRESS ENTER? 

GOH MLFE DMIZ ONE SIAMD 
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THE MESSAGE? 

I DO NOT HAVE ANY IDEA 

YOU HAVE MISSED 19 LETTERS. 

TRY THE SAME ONE OR GO TO THE NEXT 

ENTER SAME OR NEXT? NEXT 

IR DMEG QESE LBB LZ ZIKPBE 

THE MESSAGE? 

IS MEG IN THE HOUSE NOW 

YOU HAVE MISSED 23 LETTERS. 

TRY THE SAME ONE OR GO TO THE NEXT 

ENTER SAME OR NEXT? NEXT 

ULN GOH NOD QOSJ RLZDES 

THE MESSAGE? 

YOU HAVE SEEN THE RIDER 

YOU HAVE MISSED 20 LETTERS. 

TRY THE SAME ONE OR GO TO THE NEXT 

ENTER SAME OR NEXT? NEXT 

GOH MLFE KYLE ID DMIZ RLS 

THE MESSAGE? 

SCRAMBLE A LITTLE MORE 

YOU HAVE MISSED 23 LETTERS. 

TRY THE SAME ONE OR GO TO THE NEXT 

ENTER SAME OR NEXT? NEXT 

STOP 

(This is not a complete run. Messages were guessed at so 
as to reveal the code.) 
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Program Listing 

10 ' PROGRAM TITLE: VORD-ZIT 

20 RANDOM: CLEAR 700 

30 CLS: INPUT" INSTRUCTIONS" ;A$ 

40 IF AS<>"Y" AND A$<>"YES" THEN 200 

50 FRINT"WORDS-ZIT" 

60 PRINT"YOU WILL EE FACED WITH 20 DIFFERENT' 

70 FRINT"MESSAGES TO DECODE. ALL THE" 

80 PRINT"LETTERS OF THE ALPHABET HAVE" 

90 PRINT"BEEN INTERCHANGED, EXCEPT FOR E," 

100 PRINT"!, AND O, WHICH REMAIN THE SAME." 

110 PRINT" IF YOU MAKE IT THROUGH THE FIRST" 

120 PRINT"MESSAGE, REMEMBER WHICH LETTERS" 

130 PRINT"WERE CHANGED WITH WHICH, THEN THE" 

140 PRINT"FOLLOWING 19 SHOULDN'T BE SO HARD.' 1 

150 PRINT"TYPE SLOWLY, DON'T EE IN A HURRY," 

160 PRINT"THE PROGRAM USES INKEY5. IF YOU" 

170 PRINT"MAKE A MISTAKE, USE THE <LEFT" 

180 PRINT"ARROW> KEY TO BACKSPACE . " 

190 INPUT"PRESS ENTER" ;A$ 

200 CLS 

210 DIM US < 21 ) ,M<21 > , XS (27 ) , L$ < 27) 

220 DIM W$<21 ) ,L(27) :WD=l 

230 GOSUB 400G:W$=W$<X) :W=LEN(W$ ) : ' MESSAGE 

240 SET LETTERS THEN REDO 

250 A=l : 1=65 

260 X$ <A)=CHR$ ( I ) : L(A)=A 

270 A=A+1 : 1=1+1 

280 IF 1=91 THEN 300 

290 GOTO260 

300 A=l : FRINT@0 , STRINGS < 14 , 32) 

30 5 IF WD>=3 THEN 470 

310 X=RND<26) 

320 IF L<X)=0 THEN 310 

330 L$<A)=X$ (X) :L<X)=0 

340 A = A+1 

350 IF A=27 THEN 370 

36 GOTO 310 

370 ' PLACE E,I, & IN PROPER PLACE 

38 Z$="E" :M=5 

3 90 FOR 1=1 TO 2 7 

400 IF L$ ( I )=Z$ THEN 420 

410 NEXT 

420 ' NOW INTERCHANGE EACH 

430 L$=LS<M):L$(M)=LS(I):L$(I)=L$ 

44 IF Z$="E" THEN Z $ = " I " : M= 9 : GOTO 390 

450 IF Z$="I" THEN Z $ = " O" : M= 1 5 : GOTO 390 
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460 A=l:' PRINT MESSAGE 

Ann r? r\n r ™ . i nnn 9 * 

480 IF X$< I >=MID$ <W$ ,A, 1 ) THEN 510 

490 IF MID$(W$ ,A, 1 >=" " THEN T$=" " : GOTO 520 

500 NEXT 

510 T$ = L$ < I) 

520 PRINT T$ ; 

530 A = A+1 

540 IF A>W THEN 560 

5 50 GOTO 4 70 

560 PRINT:PRINT 

570 PRINT"THE MESSAGE ?" 

580 F=256:A=1 

590 X$=INKEY$ 

600 FRINT@F,CHR$< 143) ; 

610 FOR T=l TO 50 :NEXT 

620 PRINT©?," " ; 

630 FOR T=l TO 25 :NEXT 

640 IF XS="" THEN 59 

650 IF ASC(X$>=8 THEN 690 

660 PRINT@F,X$ ; : F = F+1 : A = A+1 : GOTO 750 

670 IF A>W THEN 900 

680 GOTO 590 

690 PsP-1 : A = A-1 : ' BACKSPACE 

700 IF P<=256 THEN F=256:A-1 

710 ' BACKSPACE TOTAL MESSAGE 

720 Q$=LEFT0 (Q$ , A- 1 ) 

730 GOTO 590 

750 • TOTAL MESSAGE 

760 Q$=G$+X$ 

77 GOTO 670 

900 ' ONE COMPLETED 

910 PRINT:PRINT 

920 IF QSOWS THEN 1000 

930 PRINT"YOU HAVE THIS ONE CORRECT, " 

935 CR=CR+1:IF WD>=3 THEN 960 

940 PRINT"DO YOU REMEMBER THE CODE FOR" 

950 PRINT n EACH OF THE LETTERS...." 

960 FOR T=l TO 3000:NEXT 

965 IF WD=21 THEN 1200 

970 CLS:Q$="" : GOTO 230 

1000 * INCORRECT LETTERS 

1010 FOR 1=1 TO LEN(WS ) 

1020 IF MID$ (QS , I , 1 ) <>MID$(W$ , I , I ) THEN 1040 

1030 NEXT: GOTO 10 50 

1040 ML=ML+1 :GOTO 1030 

1050 PR2NT"YOU HAVE MI SSED" ; ML ;" LETTERS , " 

1060 PRINT n TRY THE SAME ONE OR GO TO THE NEXT 1 
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1070 INPUT M ENTER SAME OR NE XT" ; A $ : ML= 

1080 IF A$="SAME" THEN 1110 

1090 IF A$:="NEXT" THEN SK^SK* 1 : GOTO 960 

1100 PR INT: GOTO 106 

1110 Q$ = " H 

1120 CLS 

1 130 FRINT;GOTO 460 

1200 ' END OF LIST 

1210 CLS 

1220 FRINT"SORRY, WE HAVE USED THE ENTIRE" 

1230 PRINT"LIST OF MESSAGES..." 

1240 FRINT"YOUR FINAL SCORE:" 

1250 • CORRECT / INCORRECT 

1260 PRINT CR; "MESSAGES CORRECT." 

1270 PRINT SK;"MESSAGES INCORRECT OR SK I PFED . " 

1200 PRINT 

12 90 FRINT"END OF RUN." 

13 00 END 

4000 * READ DATA LIST IF NOT DONE 

40 10 IF WD>=2 THEN 4030 

4020 FOR 1=1 TO 20.READ U$ ( I > :M< I ) « I : NEXT 

4030 ' GET RANDOM MESSAGE 

4040 X=RND<20> : IF M(X)=0 THEN 4040 

4050 V$ <X)=U$ <X) :M(X)=0 

4060 • COUNTER ADVANCE 

4070 WD=WD+1 

4080 PRINT@0 , "PROCESSING 

4090 FOR T=l TO 1000:NEXT 

4 100 RETURN 

5000 DATA YOU HAVE THIS ONE RIGHT 

50 10 DATA YOU MUST BE GETTING BETTER 

5020 DATA DOING FINE 

5030 DATA A ROLLING STONE DOES NOT GET VET 

5040 DATA YOU HAVE MADE IT THIS FAR 

50 50 DATA YOU MUST BE A CRACK AT CODES 

5060 DATA WORDS OR MESSAGES YOU MUST KNOW 

THE CODE 
5070 DATA IF THEY WERE ALL AS SIMPLE 
5080 DATA IF YOU WANT TO QUIT THINK AGAIN 
5090 DATA WE ARE JUST BEGINNING 

5 100 DATA CAN YOU NOT WORK FASTER 
5110 DATA PERHAPS YOU ARE BEGINNING TO 

DEHYDRATE 
5 120 DATA PERHAPS YOU HAVE TO WORK 

TOMORROW 
5130 DATA HIGH ON A MOUNTAIN BREAKING A CODE 
5140 DATA IF YOU MADE IT THIS FAR BE A SPY 
5150 DATA MICRO CHIPS ALL OVER THE FLOOR 
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5 160 DATA HAVE YOU THOUGHT OF ENTERING A 

SCHOOL Gt CODE 
5170 DATA ALL THE TIDES AND A FULL MOON 

COULD NOT STOP YOU NOW 
5 180 DATA SAY YES IF YOU WANT TO QUIT AND I 

WILL NOT RESPOND 
5190 DATA A ZEBRA MUST HAVE STRIPES FOR THE 

FBI FILES 

Variables and Strings 

A$ - General input 

U$(I) - For messages 

M(I) - For used messages 

X$(I) - Correct order of letters 

L$(I)-Random order of letters L(I) - Used letters 

W - Number of letters and spaces per message (LEN) 

A - General counter 

I - General purpose, for letters 

WD - Counter, messages used 

X - Random select/placement of letters into L$(I) 

Z$ - For placement of letters E,I and into their proper locations 

T$ - Letters of message (coded) 

P - Placement of letters (input) at video PRINT@Iocations 

X$ - For user letter entries 

Q$ - User's input message 

CR - Counter, correct messages 

ML - Counter, missed letters 

SK - Messages skipped or incorrect 

Explanation of the Program Lines 

Line 20 clears 700 bits of memory for string storage (Q$). 

Lines 30-200 print the general instruction. 

Lines 210-220 dimension the variables and strings and 
initialize the counter for the messages used. 

Line 230 contains a GOSUB to line 4000 where the data list is 
read into the U$ array if this hasn't already been done. A random 
message is selected and then deleted from the list so it will not be 
reselected. The return is made to line 230 where W$ is set to the 
contents of the W$(X) message, and W is set to the length of W$. 

Lines 240-290 sets the subscripted string, X$, to the 26 letters 
of the alphabet. 

Lines 300-360 select random letters from the alphabet, and 
places them within L$(A). 
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Lines 370-450 check the location of the letters E, I, and and 
interchange them with the three correct letters if necessary. 

Lines 460-550 print the entire message in coded form. 

Lines 560-640 use the INKEY$ function for user entry of the 
letters. If X$ is not equal to null, the program branches to line 650. 

Line 650 tests the ASC value of X$ for a possible backspace 
entry. 

Line 660 prints the contents of X$ at location P. Location P is 
then advanced by one, and the count of the letters is increased by 
one (A). 

Line 670 checks the letter counter, A. If the value is greater 
than W, the entire message has been entered. 

Line 680 recycles back to INKEY$, if the message is not 
finished. 

Lines 690-730 backspace one letter if ASC(X$) = 8 and de- 
crease the location variable (P) and the counter (A) to match the 
backspace. 

Lines 750-770 accumulate the total message entered by user. 

Lines 900-1130 test for correct message entry. If the entry is 
correct the counter, CR, is advanced by one and another message 
will be selected (if any remain). If it is incorrect, the user will have 
the opportunity to try the same message or skip it and go to another 
one. 

Lines 1200-1300 print the final messages and terminates the 
program. 

Lines 4000-4100 were explained under line 230 above. 

Lines 5000-5190 are the correct messages. 
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MATH-A-CODE 

This program is similar to Words-Zit. Each problem you receive 
will have the numerals encoded as letters of the alphabet. Read all 
the instructions carefully before playing, noting exactly what letters 
represent the Os (zeros) in any answer. It will mean the difference 
between winning and losing ! 

Sample Run 

MATH-A-CODE 

THE INSTRUCTIONS? YES 

IN THESE MATH PROBLEMS YOU WILL MULTIPLY TWO 
NUMBERS, THEN ADD ANOTHER TO THE ANSWER- 
SIMPLE, BUT HAVE YOU TRIED IT LATELY USING LETTERS 
FROM THE ALPHABET? 

EACH LETTER FROM THE ALPHABET WILL REPRESENT A 
NUMBER FROM 1 -9 AS YOU WILL SEE IN A SAMPLE. EACH 
NUMBER WILL ONLY BE USED ONCE IN EACH PROBLEM. 

PRESS ENTER? 

STUDY THIS SAMPLE: 

HDJ * FGC + BIE = EBFFAC. 

THE ANSWER IN THE ABOVE SAMPLE CONTAINS A 
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(ZERO). THIS IS REPRESENTED BY THE LETTER A ANY- 
TllVie YOUR ANSWER CONTAINS A (ZERO), IT WILL BE 
THE LETTER BEFORE THE FIRST LETTER IN THE SET; I.E., 
IFTHE FIRST LETTER IN A SET IS R, THE ZERO, IF NEEDED, 
WOULD BE THE LETTER Q. 

PRESS ENTER? 

REMEMBER, ALL LETTERS WILL REPRESENT THE NUM- 
ERALS 1-9 ONLY ONCE IN EACH PROBLEM. YOU WILL 
HAVE A SET OF 20 PROBLEMS TO COMPLETE ONCE YOU 
BREAK THE CODE, THINGS WILL GO QUITE SMOOTHLY 

PRESS ENTER TO BEGIN? 

HED*GCJ + BFI = 7AEFGRT 

XSW*QUY + RVT = ?RFTAEE 

SRL*PTN + MOQ = ? UJYTT 

MLK*JGI + NHF = ?M. 

QTR*PSW + UOV = ?RFTTCV 

VQU*ORP + TNS = ?DEAABC 
FGH *LIJ + KDE = ?CXXVFG 
GHF*ECJ + DBI = ?GTTFD 
MJN*ILG + KHF = ?HAACD 
FIL*JEH + DKG = ?RRTTG 
TON*PRS + QML = ? HAAES 
FEJ*GIB + CHD = ?XXSZD 
NLK*MFG + IHJ = ?HTFFD 
XUR*SWT + YVQ = ?JHHASD 
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HJE*FCB + DGi = 7VFRRA 

FDI*EHJ + GLK = 7ACDDB 

STR*POV + UQW = 7WAZXD 

XSR*TYV + UWQ = 7BGTTD 

PSN*RMK + LOQ = 7EFFAC 

CGH*IKE + JFD = 7 ERRGH 

TOTAL POINTS FOR CORRECT 
ENTRIES ARE: 

YOU ARE READY TO TRY 

20 MORE PROBLEMS, RIGHT? NO 

NATURAL BORN QUITTER!!! 

All answers were missed on purpose so as to not reveal the 
code. 

Program Listing 

10 REM PROGRAM TITLE: MATH-A-CODE 

20 CLS:TP=0 

3 PRINT"MATH~A~CODE" 

40 INPUT"THE INSTRUCTIONS" ; X$ 

50 IF X$="N" OR X$="NO" THEN 300 

60 PRINT" IN THESE MATH PROBLEMS" 

65 PRINT"YOU WILL MULTIPLY" 

70 PRINT"TWO NUMBERS, THEN ADD ANOTHER" 

75 PRINT"TO THE ANSWER--S IMPLE . BUT, HAVE" 

80 PRINT"YOU TRIED IT LATELY USING LETTERS" 

85 PRINT"FROM THE ALPHABET?" 

90 PRINT"EACH LETTER FROM THE ALPHABET" 

95 PRINT"WILL REPRESENT A NUMBER FROM" 

100 FRINT"l-9, AS YOU WILL SEE IN A SAMPLE." 

105 PRINT"EACH NUMBER WILL ONLY BE USED" 

110 PRINT"ONCE IN EACH PROBLEM." 

115 PRINT 

120 INPUT" ENTER" ;X$ : CLS 
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125 FRINT"STUDY THIS SAMPLE:" 

130 PRINT"HDJ * FGC + BIE = EBFFAC" 

135 PRINT"THE ANSWER IN THE ABOVE SAMPLE' 

140 FRINT"C6NTAINS A (ZERO). THIS IS" 

145 PRINT"REPRESENTED BY THE LETTER 'A'. 1 

150 FRINT"ANYTIME YOUR ANSWER CONTAINS" 

155 PRINT"A (ZERO), IT WILL BE THE" 

160 PRINT"LETTER BEFORE THE FIRST LETTER' 

165 PRINT"IN THE SET; I.E,, IF THE" 

170 PRINT"FIR5T LETTER IN A SET IS *R' 

175 PRINT"THE ZERO, IF NEEDED, WOULD" 

180 FRINT"BE THE LETTER • Q ' . " 

185 PRINT 

190 INPUT"PRESS ENTER "; X S: CLS 

195 PRINT"REMEMBER, ALL LETTERS WILL " 

200 REPRESENT THE NUMERALS 1-9" 

205 PRINT"ONLY ONCE (IN EACH PROBLEM) " 

210 PRINT"YOU WILL HAVE A SET OF 20" 

215 PRINT"PROBLEMS TO COMPLETE IN" 

220 PRINT"CODED FORM. ONCE YOU BREAK" 

225 PRINT"THE CODE, THINGS WILL GO" 

230 PRINT"QUITE SMOOTHLY.,." 

23 5 PRINT 

240 INPUT"FRESS ENTER TO BEGIN" ;X$ 

300 CLS: Y = 65 : J = : ' GET NUMBERS 1-9 

310 FOR 1=1 TO 9;N( I ) = I :NEXT 

320 1=1 

330 N=RND(9> 

340 IF N(M)=0 THEN 330 

350 A( I )=N:N(N)=0 : L( I )=I 

360 1=1+1 

370 IF 1=10 THEN 390 

3 80 GOTO 330 

390 * PROBLEM (LETTER FORM) 

400 FOR 1=1 TO 3: A$ =A $ +STR$ ( A ( I ) ) 

410 GOSUB 470 :NEXT:PRINT" * "; 

420 FOR 1 = 4 TO 6 : A 1 $ = Al $ +STR5 ( A ( I ) ) 

430 GOSUB 470 :NEXT:FRINT" + "; 

440 FOR 1=7 TO 9 : A2 $ = A2 $ + STRS ( A ( I ) ) 

450 GOSUB 470:NEXT: PRINT" = "; 

4 60 GOTO 500 

470 PRINT CHR§ (A( I >+Y) ; 

480 RETURN 

500 * USER ENTRY 

510 INPUT 0$ 

52 • TOTAL 

530 T=VAL(A$ )*VAL(A1$ )+VAL(A2$) 

540 T$=STR$ (T) 
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5 50 ' TOTAL TO STRING 

560 FOR 1=2 TO LENCT$) 

5 70 TL$=TL$+CHR$(VAL(MID$ <T$,I,1))+Y) 
580 NEXT 

590 ' COMPARE 

600 IF 0$<>TL$ THEN 620 

610 PI=PI+INT(T/100>:' POINTS 

620 TP=TP+1:' TOTAL PLAYS 

630 J=J+1:IF TP=20 THEN 800 

640 A$ = u " : A1$ = ,,N : A2$ = ,,n 

6 50 TS« ,,H :TL$="" 
660 Y=RND(80) 

670 IF Y< = 64 THEN 660 

680 PRINT 

690 IF J=7 THEN 300 

700 GOTO 310 

800 ' MESSAGE / FINAL 

810 CLS 

820 PRINT M TOTAL POINTS FOR CORRECT' 1 

830 PRINT M ENTRIES ARE: ";PI 

84 PRINT 

850 PRINT"YOU ARE READY TO TRY" 

860 PRINT"20 MORE PROBLEMS, RIGHT"; 

870 INPUT X$ 

880 IF X$="N" OR X$="NO n THEN 900 

890 TP=0 : J=7 : GOTO 640 

90 PRINT 

910 PRINT"NATURAL BORN QUITTER M ! M 

9 20 END 



Variable and Strings 

TP - General counter, total problems 
X$ - General input string 
Y - ASCII contents, for coding 

J - Simple counter for clearing of video, when the number of prob- 
lems reaches 7 
N(I) - Numerals 1-9 for coding 
A(I) - Random value as above for coding 
A$,A1$,A2$ - STR$ contents of code for totals 
Q$ - User input of answer in letter form 
T - The total value of Al, Al$, and A2$ 
T$ - STR$ of T (above) 
TL$ - For total in letter (code) form 
PI - Point total 
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Explanation of the Program Lines 

Line 20 initializes ihe variable TP for the count of the total 
problems. 

Lines 30-240 display the instructions for play. 

Line 300 initializes the variables Y and J. 

Lines 310-380 set the subscripted variable N(I) to the numer- 
als 1-9; then selects the numerals 1-9 in a random fashion and places 
them in subscripted variable A(I), and finally deletes the number 
selected. 

Lines 390-480 print the problem in its coded form. 

Lines 500-510 allow the user to input the answer in letter form. 

Lines 520-580 put together the answer in coded letter form. 
This is done after the user has entered his or her answer so no 
cheating can take place. 

Lines 590-600 compare answers. 

Line 610 increases the score if the answer is correct. 

Line 620 advances problem counter by one. 

Line 630 increases the problem count by one. If J is equal to 7, 
the video is cleared (line 690). If TP is equal to 20 the program 
branches to final message. 

Lines 640-700 sets the strings to null, and get another amount 
for Y, and then recycle back for another problem. 

Lines 800-920 print the total points accumulated and ask if the 
user wants another set. If he does not, the program is terminated. If 
he does, variables J and TP are initialized and the program recycles 
to the beginning. 
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MASTER CODE 

Have you ever seen so many code programs? Using the sound 
routine, the computer will select three digits from the numerals 
1-9. The computer will then beep each digit. Each tone will repre- 
sent a specified digit. You will enter your guess of the 3 digits using 
the INKEY$ function. The computer will beep each of your guesses 
as you press the numeral key. Match the tones and you've got the 
code, but watch out, you'll only have a certain amount of time before 
computer changes one of the digits! Remember to use the proper 
value for MC in line 370. Refer to page 3. 

Sample Run 

:: MASTER CODE :: 

INSTRUCTIONS? YES 

READ THE INTRODUCTORY PARAGRAPH 
IN THE BOOK. REMEMBER THAT THE 
COMPUTER WILL HOLD A MASTER 
CODE FOR ONLY SHORT PERIODS OF 
TIME AND THEN CHANGE ONE DIGIT 
OF IT. AFTER A LENGTH OF TIME, IF 
YOU DO NOT BREAK THE CODE, 
YOU'LL BE OUT OF THE GAME. 
LISTEN FOR THE THREE BEEPS: 
THESE WILL BE YOUR CLUE TO 
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THE MASTER CODE. NUMBERS IN 
THE CODE ARE 1-9 (3 DIGITS). 

NUMBER TO PLAY? 2 

FIRST NAMES OR INITIALS 
OF THESE 2 PLAYERS? E£, 
GT. 

E.F. WILL PLAY NOW, LISTEN 
TO THE THREE TONES. 

Program Listing 

10 REM PROGRAM TITLE: MASTER CODE 

20 CLS 

30 PRINT":: MASTER CODE : : " 

4 RANDOM 

50 INPUT 1 ' INSTRUCTIONS" ; XS 

60 IF X$<>"YES" THEN 250 

70 PRINT 

80 PRINT n READ THE INTRODUCTORY PARAGRAPH" 

90 PRINT" IN THE BOOK REMEMBER THAT THE" 

100 PRINT"COMPUTER WILL HOLD A MASTER" 

110 PRINT"CODE FOR ONLY SHORT PERIODS OF" 

120 PRINT"TIME AND THEN CHANGE ONE DIGIT" 

130 PRINT"OF IT. AFTER A LENGTH OF TIME," 

140 PRINT"IF YOU DO NOT BREAK IT, YOU'LL" 

150 PRINT"BE OUT OF THE GAME." 

160 PRINT"LISTEN FOR THE THREE BEEPS," 

170 PRINT"THESE WILL BE YOUR CLUE TO" 

180 PRINT"THE MASTER CODE, NUMBERS IN" 

190 FRINT"THE CODE ARE 1-9 (3 DIGITS)." 

250 INPUT"NUMBER TO PLAY (1-4) " ; PA 

260 IF PA<1 OR PA>4 THEN 250 

270 PRINT"FIRST NAMES OR INITIALS" 

280 PRINT"OF THESE " ; P A ; " PL AYERS " ; 

290 FOR 1=1 TO PA:INFUT NS < I > 

300 NEXT 

310 V=l 

320 N$=N$<V) : PRINT 

330 PRINT N$ ; " WILL PLAY NOW. LISTEN" 

3 40 PRINT"TO THE THREE TONES " 

350 REM NUMBERS IN CODE 

360 REM LOCATION FOR BEEPS 
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370 N=3 :MC=31 266 

380 REM TOTAL NUMBERS IN SET 

390 FOR 1=1 TO 9 :N( I >=I :NEXT 

300 FOR X=l TO 1500 :NEXT:REM GET CODE 

410 X=l :F=95 : PL=102 : D=0 

4 20 A=INT(RND(0 )#9)+l 

430 IF N(A)=0 THEN 420 

440 A(X)=A:N(A)=0 : POKE MC,A*A+140 

450 U=USR(0) : Xr=X+l 

460 IF X>N THEN CLS:GOTO 480 

47 GOTO 42 

480 M=0:T=0:REM BEGIN TIME 

490 L=64:G=0:IF M= 1 THEN 510 

500 FRINT&0 , "THE CODE ?"; 

510 C*=INKEY$ 

520 T=T+1 :TM=INT(T/20> 

530 PRINT@15, "TIME : " ; TM ; 

540 IF CS= n " THEN 600 

550 H=VAL(C$) : POKE MC,H#H+140 

560 U=USR(0) : FRINT@L,H; : L = L + 2 

570 G=G+1 :H(G)«H: IF G=N THEN 620 

580 REM TOTAL TIME 

600 IF TMO 10 THEN 510 

6 10 GOTO 72 

620 REM COMPARE 

6 30 FOR W=l TO N 

640 IF H(W)OA(W) THEN 670 

650 NEXT 

660 GOTO 10 00 

6 70 FRINT@L+6 4-N*2 , "INCORRECT" ; 

680 FOR X=l TO 5 : NEXT : T=T+ 6 

6 90 FRINT@L+6 4-N*2 , STRINGS (9,32); 

700 FRINT(§L~Nft2,STRING$<N*2; 32) ; 

710 GOSUB 820:M=1:GOTO 490 

720 FRINT@21, H * EXPIRED *"; 

730 REM CHANGE RANDOM NUMBERS 

740 Y=RND(N) 

750 EX=EX+1:IF EX=7 THEN 950 

760 A=INT(RND(0)*9)+1 

770 IF N(A)=0 THEN 760 

780 A(Y)=A;N( A)=0 : POKE MC,A*A+140 

790 U=USR( ) :GOSUB 1160 

800 PRINT@2 1 , STRINGS (11,32); 

810 FRINT@L~N#2 ,STRING$ (N*2 , 32 ) ; : GOTO 480 

820 REM ATTEMPTED SEQUENCES 

830 IF M=0 THEN 850 

84 GOTO 86 

850 PRINT@35, "ATTEMPTED SEQUENCES:"; 

860 FOR W=l TO N : PR I NT@P , H ( W) ; 
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870 F=P+2:NEXT 

880 P=F-N*2+64 

890 IF F>=9 99 THEN 910 

900 RETURN 

910 P = FL 

920 FL=PL+N*2+i 

930 D=D+1:IF D = 4 THEN 950 

94 GOTO 90 

950 REM TIME EXPIRED (TOTAL) 

960 PRINT:IF D=4 GOSUB 1100 

970 FRINT"YOUR TOTAL TIME HAS EXPIRED, ";N$ 

980 FRINT"TOTAL CODES BROKEN = ";CC 

990 GOTO 1200 

1000 REM CODE BROKEN 

1010 PRINT 

1020 FRINT n YOU' VE BROKEN THE MASTER CODE M 

1030 FRINT"FANTASTIC, " ;NS;" !! NOW TRY" 

1040 PRINT"A NEW CODE . . . H 

1050 CC=CC+1 

1060 FOR Xal TO 1000:NEXT 

10 70 GOTO 350 

1100 REM PRINT 

1 1 10 FOR X = l TO 15 

1120 PRINT 

1130 NEXT 

1140 PRINT@0 , ; 

1150 RETURN 

1160 FRINT@L+135-N*2, "1 DIGIT CHANGED*' ; 

1170 FOR X=l TO 900 ;NEXT 

1180 FRINT®L+13 5-N*2,STRING$ ( 16, 32) ; 

1190 RETURN 

12 00 REM ANOTHER 

1210 Q(V)=CC:CC=0 : GOSUB 1300 

1220 V=V+1 : EX = 

1230 IF V>PA THEN 1400 

1240 FOR Xal TO 1200:NEXT 

1250 GOTO 3 20 

1300 REM BEEPS (FINAL) 

1310 FOR X=l TO 20 

1320 POKE MC, A< 1 )*A< 1 )+RND( 200) 

1330 U=USR(0) :NEXT 

13 40 RETURN 
1400 PRINT 

1410 PRINT H ALL HAVE PLAYED; SCORES" 

1420 FRINT"ARE AS FOLLOWS:" 

1430 FOR 1=1 TO PA 

1440 PRINT N$(I); M, S SCORE";Q<I); 

1450 PRINT"CODES BROKEN..." 
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1460 NEXT 

1480 PRINT"END OF MASTER CODE* 
14 90 END 



Variables and Strings 

PA - Number of players (1-4) 
N$(I) - Names of players 

V - Counter for (total) number of players, PA 
N$ - (Name of player) contents of N$(V) 

N - Total numbers in code 

MC - Location of machine language program (sound) 

N(I) - Numerals 1-9 for code 

X -Counter, general purpose time loop 

P & PL - Print @ locations for user's code entry 

D - Counter, general purpose 

A - Random number select 

A(X) - Numbers in code (1-3) 

U - USR call for machine language routine 

M - General purpose 0/1 variable for print statements 

T - Time counter 

TM - Total time: INT of T divided by 20 

L - Print @ location for messages 

G - user entry, counter of digits entered 

H - Value of C$ (user entry) 

H(G) - Digits selected (user entry) 

W - for the comparison of digits 

Y - selection (random) of a digit to be replaced 
EX - for termination of program, all digits used 
CC - Correct entered codes 

Q(V) - Total correct codes, current user (player) 

Explanation of the Program Lines 

Lines 50-190 display the general instructions. 

Lines 250-260 allow the user to input the number of players. 

Lines 270-300 allow the input of the first name or initials of 
each player. 

Lines 310-340 display a message that indicates who is playing. 

Line 370 sets the variable that indicates the total number of 
digits to three, and set MC to the location that will be poked for 
sound. 

Line 390 assigns the numerals 1 through 9 to the N(I) array. 
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Lines 410-470 get the three digits, and then sound a different 
tone for each. 

Lines 480-490 initialize more variables. 

Lines 500-600 let the user enter his or her selection of digits, 
output a tone for each selection, and test the amount of time 
remaining. 

Line 610 branches to line 720, if TM is equal to 10. 

Lines 620-650 compare each digit entered against digits 
selected in memory. Line 660 branches to 1000 if all are correct. 

Lines 670-710 present the message if the response was incor- 
rect. 

Lines 720-810 delete one digit and select another, beep its 
code tone, and then it returns to line 480, if EX is not equal to 7 
(which means all digits have been used). 

Lines 820-940 print all three digits the user has entered that 
did not work. They also advance or reset the PRINT ©areas for 
these codes. 

Lines 950-990 display the message indicating that time has 
expired. 

Lines 1000-1070 display the message indicating that the code 
has been broken, advance the counter CC (codes broken) by 1, and 
then return to get another code if variable EX is not yet equal to 7. 

Line 1100-1150 clear the video with print statements (blanks) 
in preparation for the termination of program. 

Line 1160-1190 display the message indicating that one of the 
three digits changed. 

Lines 1200-1250 advance the next player, if all have not yet 
played (V<PA) 

Lines 1300-1340 sound random beep tones that indicate the 
end of the program. 

Lines 1400-1490 display the total scores for all players. 
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DRIVER'S TEST 

Are you a good driver? Can you stay in your own lane or have 
enough sense to pass safely ? Up to 10 people can try their ability at 
the wheel without leaving the house. Of course, the steering wheel 
will consist of the left and right arrow keys. Watch out for head-on 
collisions, which occur rapidly, almost without warning. The test 
will conclude after a determined amount of time or before. 

Sample Run 

HOW MANY DRIVERS?_2_ 
FIRST NAMES 
? ARNOLD 
? WALT 

THANK YOU... 

DO ANY OF YOU NEED THE 

INSTRUCTIONS FOR DRIVERS TEST? YES 

YOU WILL TAKE THE DRIVERS SEAT 
IN AN ATTEMPT TO COME OUT ALIVE. 
YOU WILL BE TRAVELLING DOWN A 
ROAD, THAT WILL BE 
STRAIGHT OR WINDING, YOU WILL 
BE TESTED FOR HOW WELL YOU CAN 
STAY IN YOUR OWN LANE: MEANING, 
DON'T HIT THE SHOULDER OR THE 
CENTER MEDIAN (UNLESS PASSING). 
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PRESS ENTER? 

WHEN A CAR COMES UP IN FRONT OF 
YOU, YOU MUST PASS, TO DO THIS 
PRESS AND HOLD THE RIGHT ARROW 
KEY. AFTER PASSING QUICKLY MOVE 
BACK TO YOUR LANE BY PRESSING 
AND HOLDING THE LEFT ARROW 
KEY. THESE KEYS ARE ALSO USED TO 
KEEP YOUR CAR STEADY IN YOUR 
LANE. IF YOU ARE PASSING AND 
ANOTHER CAR IS ALREADY IN THE 
PASSING LANE.. TAKE TO THE 
DITCH!!! 

A PERFECT SCORE IS (ZERO) 
MISTAKES OR ERRORS. 
ARNOLD WILL NOW TAKE THE WHEEL 
PRESS ENTER WHEN READY 

! * i i 
! i i 

• I i' 

' T i 
i i I 

I I I 

'I I ! 

i i ! 

| I | 

I I ' 
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Program Listing 



10 REM PROGRAM TITLE: DRIVERS TEST 

20 CLS 

3 RANDOM 

40 INFUT"HOW MANY DRIVERS" ;D 

50 IF D< 1 OR D> 10 THEN 40 

60 PRINT"FIRST NAMES" 

70 FOR 1=1 TO D; INPUT QS < I ) 

80 NEXT: PRINT: YF=1 

90 PRINT"THANK YOU..." 

100 PRINT: M=0 :WL=0 : PA=0 :TR=0 :CA=0 

105 IF YP>=2 THEN 430 

110 PRINT"DO ANY OF YOU NEED THE" 

120 PRINT" INSTRUCTIONS FOR DRIVERS TEST"; 

130 INPUT 1$ 

140 IF I$="N" OR IS="NO" OR 1$="" THEN 420 

150 CLS 

160 PRINT"YOU WILL TAKE THE DRIVERS SEAT" 

170 PRINT" IN AN ATTEMPT TO COME OUT ALIVE." 

180 PRINT"YOU WILL BE TRAVELLING DOWN A" 

190 PRINT"ROAD THAT WILL BE" 

200 PRINT"STRAIGHT OR WINDING YOU WILL" 

2 10 PRINT"BE TESTED FOR HOW WELL YOU CAN" 

220 PRINT"STAY IN YOUR OWN LANE; MEANING," 

230 FRINT"DON'T HIT THE SHOULDER OR THE" 

240 PRINT"CENTER MEDIAN (UNLESS PASSING)." 

2 50 PRINT 

260 INPUT"KEY ENTER" ; X 

270 CLS 

280 PRINT"WHEN A CAR COMES UP IN FRONT OF" 

290 PRINT"YOU, YOU MUST PASS. TO DO THIS" 

300 PRINT"PRESS AND HOLD THE <RIGHT ARROW)" 

310 PRINT"KEY. AFTER PASSING QUICKLY MOVE" 

320 PRINT"BACK TO YOUR LANE BY PRESSING" 

330 PRINT"AND HOLDING THE <LEFT ARROW)" 

340 PRINT"KEY. THESE KEYS ARE ALSO USED TO" 

350 PRINT"KEEP YOUR CAR STEADY, IN YOUR" 

360 PRINT"LANE IF YOU ARE PASSING AND" 

370 FRINT"ANOTHER CAR IS ALREADY IN THE" 

380 PRINT"PASSING LANE .. TAKE TO THE" 

390 PRINT"DITCH ! M " 

400 PRINT"A PERFECT SCORE IS (ZERO)" 

410 PRINT"MISTAKES OR ERRORS." 

420 PRINT Q$(l);" WILL NOW TAKE THE WHEEL" 

430 PRINT"PRESS ENTER WHEN READY"; 

44 INPUT X 
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450 CLS 

5 RKM TWO X. AMES / MEDT fiM 

510 Rl=30:R2=44:C5=Rl+3:Ml=<(R2»Rl>/2>+Rl 

520 REM STRAIGHT OR CURVE / CAR 

530 M3=M1 : GOTO 700 

540 C^RND(2) :C1=RND<2> : M« ( ( R2-R1 > / 2 ) +R1 

550 FRINT@C5, *' : I : " ; : IF ABS<C-C1>=0 THEN 580 

560 REM STRAIGHT 

570 TR=TR*1 :GOTO 700 

580 REM LEFT OR RIGHT CURVES 

590 C2=RND<2> 

600 IF ABS(C1-C2>=1 THEN 650 

610 REM LEFT 

620 IF ABSCR1-M1 > >=19 THEN 670 

630 H1=R1-1:R2=R2-1 :M=M-1 

64 GOTO 70 

6 50 REM RIGHT 

660 IF ABS<R2-M1 > >=19 THEN 630 

670 R1=R1+1 :R2=R2+1 :M=M+1 

680 REM LANE AND A CAR 

700 REM USER CAR MOVEMENT 

710 Q=PEEK( 15340 ) 

720 IF Rl>=?60 OR R2>=960 THEN 740 

730 Rl=Rl+64 :R2=R2+64 :Ml=Ml+64 

740 PRINT@R1 ,"!";; PRINT@C5, " : I : " ; 

75 PRINT^M, " I" ; : PRINT@R2 , " ! " ; 

755 IF FA=3 THEM CA=CA-64 

756 IF CL«1 THEN CC=CC-64 

757 IF ABSCCA-C5) <=3 THEN 1160 

76 IF M=0 FRINT^M, " " ; 
770 IF 0=32 THEN 810 
780 IF Q=64 THEN 830 

790 PRINT: IF TR > = 2 2 5 THEN 970 

792 IF ABS(CC+64-C5)<=3 THEN 1220 

795 IF PA<>3 AND C5>M3 AND 0032 THEN 870 

80 GOTO 90 

810 REM CAR LEFT 

812 IF C5<=0 THEN ZT= 1 : GOTO 12 20 

815 IF PA=3 THEN C5 =C5 - 2 : GOTO 790 

820 C5=C5»1 : GOTO 790 

830 REM CAR RIGHT 

832 IF C5>=62 THEN ZT= 1 : GOTO 1220 

835 IF PA=3 THEN C5=C5+2:GOTO 850 

840 C5=C5+1 

850 IF PA<>3 AND C5>M3+2 THEN 870 

86 GOTO 79 

870 REM STAYING IN WRONG LANE 

88 WL=WL+1 :GOTO 1000 
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900 Q1:=PEEK(C5 + 1536G + 64) 

910 Q2=*FEEK<C5 + 15360 + 66 ) 

920 IF 01O32 AND Q<>32 THEN 940 

925 IF Q2<>32 AND Q<>32 THEN 940 

930 IF ABS(M3-C5) >=14 THEN 960 

93 5 GOTO 1000 

940 IF FA=3 THEN 1 160 

950 REN WRONG LANE / SHOULDER 

960 WL=WL+1 :GOTO 1000 

970 PRINT@0, "DRIVING TEST COMPLETED..." 

9 80 GOTO 1460 

1000 REM CAR TO PASS 

1001 IF FA=3 THEN 1040 
1010 PA=RND(20) 

1020 IF FAOl THEN 1330 

1030 FA=PA+2 

1040 IF Rl<=860 THEN PA=0:GOTO 540 

1050 IF CA>=100 THEN 1070 

1060 IF CP=0 THEN CA=M-6 

1070 IF CP=1 THEN 1110 

1080 FRINT<»CA, " : < I> : " ; 

1090 CF=1 

1100 GOTO 540 

1110 REM CLEAR IF LESS THAN USER CAR 

1120 IF CA<=0 THEN 1 140 

1130 GOTO 54 

1 1 40 PA = : CF = : CL = 

1150 GOTO 1190 

1160 REM HEAD-ON ? 

1170 IF ABSCCA-C5) <=4 THEN 1220 

1180 IF ABS<CA*1-C5><=3 THEN 1220 

1190 IF FA + CP04 AND C5<Rl-962 THEN 960 

1200 IF FA + CF04 AND C5>R2-962 THEN 960 

12 10 GOTO 54 

1220 X=l :WL=-99 

12 30 PRINT@C5, " * " ; : FRINT@C5+2 , "*" ; 

12 40 PRINT£C5+64~1 , " * " ; : PR INT@C5 + 6 4 + 4 , " * " ; 

1250 FOR U=l TO 50:NEXT 

1260 PRINT@C5 , " " ; : PR INT@C5 + 6 4 + 1 , " * " ; 

12 70 FRINT@C5+6 4-3 , " M ; 

1280 FOR U=l TO 25:NEXT 

1290 X=X+1 

1300 IF X>=li THEN 1400 

1310 GOTO 12 30 

1330 REM CAR IN OPPOSITE LANE 

1340 IF M<896 OR PAO10 AND PA<>15 THEN 540 

1350 IF CL=1 THEN 540 

1360 CL=1 :CC=M+2 

1370 FRINTGM+2 , " : -- : " ; 
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13 80 GOTO 5 4 

1300 HEM FiNibHiiD / DECEASED 

1410 PRINT@0 , ; 

1420 PRINT"YOU HAVE BECOME ANOTHER" 

1430 PRINT n HIGHWAY STATISTIC" 

1435 IF ZT=1 THEN ZT=0:GOTO 1460 

1440 PRINT"MOVE TO THE PASSING LANE" 

1450 PRINT'*A LITTLE SOONER ... NEXT TIME . " 

14 60 UP(YP)=WL : YP=YF+1 
1470 IF YP>D THEN 1520 

14 80 PRINT 

1490 PRINT Q$(YP>;" WILL NOW TAKE THE" 

1500 PRINT*'WHEEL, GOOD LUCK M!" 

1510 CP=0:CL=0:CC=0: GOTO 100 

1520 FOR T*l TO 2 : NE XT : CLS 

1530 PRINT M END OF DRIVING TEST." 

1540 PRINT"TOTAL NUMBERS OF ERRORS' 1 

1550 PRINT U ARE AS FOLLOWS:" 

1560 FOR 1=1 TO D 

1570 IF UP(I>=-?9 THEN 1620 

1580 PRINT QS(I);" HAD";UP(I); 

15 90 PRINT M TOTAL ERRORS . " 
1600 NEXT 

16 10 GOTO 1640 

1620 PRINT QS(I);" IS DECEASED,.. " 

16 30 GOTO 16 00 

16 40 PRINT 

1650 FRINT"END OF DRIVERS TEST." 

16 60 END 

Variables and Strings 

D - Number of drivers 

Q$(I) - First names of the D drivers 

YP - Players advance (counter) 

WL - Counter, staying in wrong lane 

PA - For use with alternate car 

CA - Alternate car 

Rl - Left side of lane 

R2 - Right side of lane 

Ql & Q2 - Test for collisions 

C5 - User's car location 

M & Ml & M3 - Center lane (median) 

C & CI - Determine if straight or curved lanes will be used 

TR - Length of driving test, terminates when TR is greater than or 

equal to 225 
C2 - Left or right curve 

48 



Q - User's key closure 
CL - Car already in opposite lane 
CC - Alternate car location 

UP(YP) - Current player's score, UP(YP) = - 99 denotes that 
player is deceased (had head-on collision) 

Explanation of the Program Lines 

Lines 10-450 determine the number of drivers, initialize sev- 
eral of the variables, and display the general instructions. 

Lines 500-670 set the variables for lane location and left or 
right curves. 

Lines 689-750 test for user's car movement and print the two 
lanes down the video screen. 

Lines 755-757 print the other car and checks for a pass or a 
collision. 

Line 760 clears the center median. 

Lines 770-780 branch to the appropriate lines for the user's left 
or right driving movements. 

Line 790 includes a print statement that keeps the lanes jump- 
ing to simulate car movement and tests for a completed drivers test 
by determining whether or not TR is greater than or equal to 225. 

Line 792 checks for a collision. 

Line 795 tests the user's car in case he or she is staying in 
wrong lane. 

Lines 810-820 manipulate the variables to move the user's car 
to the left. 

Lines 830-860 manipulate the variables to move the user's car 
to the right. 

Lines 870-960 increase the counter for the user staying in the 
wrong lane and also test for collisions with the other car. 

Lines 970-980 display the message that the test is over. 

Lines 1000- 1 100 will print another car at bottom of video if the 
arguments are met, and there is not already another car at that 
location. 

Lines 1110-1150 clear the appropriate variables of the other 
car if the location of that car is less than the present location of the 
user's car. 

Lines 1160-1310 test for a head-on collision with the other car, 
demolish both if conditions are met , and branch to a message to go to 
the next driver. 

Lines 1330-1380 print a car in the opposite lane (the third car). 

Lines 1400-1660 advance to the next driver (player), print all 
scores, and terminate the program if conditions are met. 
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WHAT IS IT? 

You just might be saying "What is it" to yourself after com- 
pleting the game! The computer will give you five different clues to 
a selected word. Your score will be determined by how many 
guesses it takes you to figure out the word. Up to four people can 
beat their brains out with this one. 

Sample Run 

—WHAT IS IT?— 

YOU WILL HAVE UP TO FIVE 

CLUES TO HELP YOU FIGURE OUT WHAT WORD THE 

COMPUTER HAS STORED IN ITS 

MEMORY. THE PLAYERS CAN TAKE 

AS MANY GUESSES AS THEY WISH, 

BUT THE MORE GUESSES IT TAKES 

YOU, THE LESS YOU'LL WIN. 

YOUR SCORE FOR EACH WORD STARTS 

AT 50; THEN 10 POINTS ARE DEDUCTED 

FOR EACH NEW CLUE. 

EACH ITEM CONTAINS 

ONLY ONE WORD; I.E. 'A SWORD' 

WOULD JUST BE INPUT AS 

'SWORD'.... 
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NUMBER TO PLAY? 2 

FIRST NAMES OF THESE 2 PLAYERS, PLEASE 

? FRED 

? YIZZY 

FRED WILL PLAY 



FRED THIS IS CLUE NUMBER 1 

TO DESTROY 

WHAT IS THE WORD? GET RID OF 

FRED THIS IS CLUE NUMBER 2 

REMOVE 

WHAT IS THE WORD? TAKEAWAY 

FRED THIS IS CLUE NUMBER 3 

WEAR AWAY 

WHAT IS THE WORD? RUIN 

FRED THIS IS CLUE NUMBER 4 
CAUSE TO DISAPPEAR 
WHAT IS THE WORD? ERASE 

FRED THIS IS CLUE NUMBER 5 

ERASED 

WHAT IS THE WORD? DESTROY 

SORRY, FRED THAT WAS 5 

CLUES AND YOU DID NOT 

ENTER THE RIGHT WORD. 

YIZZY WILL PLAY 



YIZZY THIS IS CLUE NUMBER 1 

TO USE IS TO PAY 

WHAT IS THE WORD? RESTROOM 

YIZZY THIS IS CLUE NUMBER 2 
GOES ALMOST EVERYWHERE 
WHAT IS THE WORD? CAR 

YIZZY THIS IS CLUE NUMBER 3 
LOTS OF NOISE 
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WHAT IS THE WORD? KIDS 

YIZZY THIS IS CLUE NUMBER 4 

TERRIFIC SPEED 

WHAT IS THE WORD? RUNNER 

YIZZY THIS IS CLUE NUMBER 5 

SST IS ONE 

WHAT IS THE WORD? JET 

SORRY, YIZZY THAT WAS 5 
CLUES AND YOU DID NOT 
ENTER THE RIGHT WORD. 

FRED WILL PLAY 



FRED THIS IS CLUE NUMBER 1 

STRIPES OR SOLID 

WHAT IS THE WORD? ARMY 

FRED THIS IS CLUE NUMBER 2 

LARGE IS BETTER 

WHAT IS THE WORD? CAR 

FRED THIS IS CLUE NUMBER 3 
EATEN IN WARM WEATHER 
WHAT IS THE WORD? FRUIT 

FRED THIS IS CLUE NUMBER 4 

BETTER ICE COLD 

WHAT IS THE WORD? BEER 

FRED THIS IS CLUE NUMBER 5 

BUST IF DROPPED 

WHAT IS THE WORD? BOTTLE 

SORRY, FRED THAT WAS 5 
CLUES AND YOU DID NOT 
ENTER THE RIGHT WORD. 

YIZZY WILL PLAY 
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YIZZY THIS IS CLUE NUMBER 1 



WHAT IS THE WORD? BEAT 

YIZZY THIS IS CLUE NUMBER 2 

REMOVE 

WHAT IS THE WORD? CARRYOUT 

YIZZY THIS IS CLUE NUMBER 3 

WEAR AWAY 

WHAT IS THE WORD? CARRYOUT 

YIZZY THIS IS CLUE NUMBER 4 
CAUSE TO DISAPPEAR 
WHAT IS THE WORD? FLUSH 

YIZZY THIS IS CLUE NUMBER 5 

ERASED 

WHAT IS THE WORD? PENCIL 

SORRY, YIZZY THAT WAS 5 
CLUES AND YOU DID NOT 
ENTER THE RIGHT WORD. 

STOP 

This is not a complete run. 

Program Listing 

10 REM PROGRAM TITLE: WHAT IS IT? 

20 CLEAR 1000 

30 RANDOM: CLS 

40 DIM WS ( 16) , AS (80) ,R( 16) 

50 PRINT" WHAT IS IT? " 

60 FOR T=l TO 1200:NEXT 

70 PRINT"YOU WILL HAVE UP TO FIVE" 

80 PRINT"CLUES TO HELP YOU FIGURE OUT WHAT 
WORD THE" 

?0 PRINT"COMPUTER HAS STORED WITHIN IT'S" 

100 PRINT"MEMORY THE PLAYER CAN TAKE" 

110 PRINT"AS MANY GUESSES AS THEY WISH," 

120 PRINT"BUT, THE MORE GUESSES IT TAKES" 

130 PRINT"YOU, THE LESS YOU'LL" 

140 PRINT"WIN. YOUR SCORE STARTS" 
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150 PRINT"AT 50,10 POINTS ARE DEDUCTED" 

160 FRINT"FOR EACH NEV CLUE . M 

170 FRINT"EACH ITEM CONTAINS" 

180 FRINT"ONLY ONE VORD , I.E. 'A SWORD 1 " 

190 PRINT"WOULD JUST BE INPUT AS" 

2 00 PRINT" 'SWORD' " 

210 FOR T=l TO 10000 :NEXT:CLS 

220 INFUT"NUMBER TO FLAY <1-4) M ;AM 

230 IF AM<1 OR AM > 4 THEN FRINT:GOTO 220 

240 PRINT"FIRST NAMES OF THESE" ; AM; 

250 FRINT"FLAYERS, PLEASE" 

2 60 FOR 1=1 TO AM 
270 INPUT XS ( I ) :NEXT 
280 1=1 ;U=1 

290 X$ = X$ ( I ) : PRINT XS;" WILL PLAY " 

300 PRINT: IF U>=2 OR UUO0 THEN 340 
310 C=i;FOR A= 1 TO 1 6 : READ W$<A) 
320 R<A)=A:NEXT 
330 FOR A=l TO 80:READ A$(A):NEXT 

3 40 REM GET ONE RANDOM WORD 
35 REM IF NOT DONE 

360 R=RND( 16) 

370 IF R(R)=0 THEN 360 

380 W$=W$(R):J=R*5-4 : JJ=J+4 :TP=5 

390 PRINTX$;" THIS IS CLUE NUMBER" ;C 

400 A$=A$ ( J) : PRINT A$:REM AS<J) FOR CLUE 

410 INPUT"WHAT IS THE WORD";WW$ 

420 IF WW$OW$ THEN 440 

43 R<R)=0 : GOTO 56 

440 IF J = JJ THEN 470 

450 TF=TF-10 : J=J+1 : C=C+1 

460 PRINT:GOTO 390 

470 PRINT:TP=0 

480 PRINT"SORRY, " ; X $ ; " THAT VAS";C 

490 PRINT"CLUES AND YOU DID NOT" 

500 PRINT"ENTER THE RIGHT WORD." 

510 IF AM=1 THEN 540 

520 1=1+1 

530 IF DAM THEN 1=1 

540 C=1:U=U+1:IF U>=17 THEN 800 

545 IF G=l AND \J>\JV THEN 600 

550 FOR T=i TO 1 5 : NEXT : CLS : GOTO 290 

560 TP( I )=TP( I >+TF: PRINT 

570 PRINT n THAT IS THE WORD " ; X $ 

580 PRINT"YOU NOW HAVE " ; TP ( I > ; " PO INTS . " 

5 90 GOTO 510 

600 REM ALL USED 

610 FOR T=l TO 2000:NEXT 
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620 CLS 

630 rHiNT i, ALL WORDS IH THE DATA LIST." 
640 PRINT"HAVE BEEN USED. TOTAL SCORES" 
650 PRINT H FOR THE PLAYER ARE : " 

6 60 FOR 1 = 1 TO AM 

670 PRINT-POINTS FOR " ; X $ ( I ) ; " ARE:"; 

680 PRINT TP( I > 

690 NEXT 

700 PRINT 

710 PRINT"END OF GAME RUN." 

7 20 END 

800 REM TEST FOR ALL USED 

810 G=l 

820 U=0 :FOR T= 1 TO 16 

830 IF R(T)<)0 THEN U=U+1 

840 NEXT 

850 IF U=0 THEN 600 

860 REM MORE REMAIN 

870 UU=U:U=1 : GOTO 550 
1000 REM WORD DATA 

10 10 DATA GEAR , WATERMELON , MONEY , OBLITERATE 
1020 DATA YEAR, FOOD, A I RL I NER , THRE AD 
1030 DATA TRAIN, OCEAN, PAPER, PARTY 
1040 DATA BOX, CENTER, SNAKE, DOOR 
1050 REM DATA CLUES 

1060 DATA HAS TEETH , DI FFERENT USES 
1070 DATA ROUND, MADE OF DIFFERENT MATERAL 
1080 DATA IN TOYS OR MACHINES 

1090 DATA STRIPES OR SOLID, LARGE IS BETTER 
1100 DATA EATEN IN WARM WEATHER 
1110 DATA BETTER ICE COLD , BUST IF DROPPED 
1120 DATA ALL NEED IT, EXCHANGES HANDS 
1130 DATA MANY USES, MADE IN ALL COUNTRIES 
1140 DATA YOU CAN'T TAKE IT WITH YOU 
1150 DATA TO DESTROY , REMOVE , WE AR AWAY 
1160 DATA CAUSE TO D I SAPPEAR , ERASED 
1170 DATA CAN LEAP , CONTA INS 12 THINGS 
1180 DATA HAS MORE DAYS THAN ABOVE 
1190 DATA CELEBRATED AT FIRST 
12 00 DATA STARTS WITH MONTH ONE 
1205 DATA YOU NEED IT, THOUSANDS OF VARITIES 
12 10 DATA TOO MUCH MAKES YOU SICK 
1220 DATA MADE IN DIFFERENT WAYS 
12 30 DATA MOSTLY GROWN 
1240 DATA TO USE IS TO PAY 
12 50 DATA GOES ALMOST EVERYWHERE 
1260 DATA LOTS OF NO I SE , TERR I F I C SPEED 
12 70 DATA SST IS ONE 
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1280 DATA LARGER THAN A HAIR, MENDS 

1290 DATA HAS STRENGTH , USED TO MAKE CLOTHES 

1295 DATA IN ALL COUNTRIES 

1300 DATA HAS WHEELS, USES NO GAS 

1310 DATA PASSENGERS, CARGO, SETS ON RAILS 

13 20 DATA IS NOT DRY, GOES TO MANY DEPTHS 
1330 DATA CAN BE V I OLENT , CONTA INS FOOD 
1340 DATA SALTY, CAN TEAR, CAN BE FOLDED 
1350 DATA MADE FROM A TREE , D I FF ERENT SIZES 
1360 DATA LIGHT OR HEAVY 

1400 DATA FRIENDS GATHER, TO CELEBRATE 

1410 DATA CAKE OR DR INKS , CANDLES 

1420 DATA CAN LAST ALL NIGHT, FOLDED WHEN MADE 

14 25 DATA LIGHTWEIGHT OR HEAVYWEIGHT 
1430 DATA USED FOR SHIPPING OR STORING 
1435 DATA MADE FROM TREES 

1440 DATA COMPUTER CAME IN ONE 

1450 DATA DIVIDES, NOT LEFT OR RIGHT 

1460 DATA PERSON MOST IMPORTANT 

1470 DATA OF A C I RCL E , POINT „ QF .NERVES 

1480 DATA HAS NO LEGS, LONG OR SHORT 

1490 DATA CAN STRIKE, CAN KILL, SHEDS SKIN 

15 00 DATA MOST OF WOOD, HAS A LOCK 
15 10 DATA BLOCKS I NTRUDERS , OPENS 
1520 DATA AND CLOSES 

Variables and Strings 

AM - Number of players (1-4) 

X$(I) - First names of players 

W$(I) - Words 

A$(I) - Clues 

R(I) - For deleting already selected words 

JJJ - For correct clue to word selected 

WW$ - User input of word 

TP - Total points 

C - Clue counter, up to 5 

U - Counter for all words 

TP(I) - Total points gained by current player 

Explanation of the Program Lines 

Lines 10-210 clear memory for string entries, dimensions the 
arrays for words and clues, and displays the general instructions. 

Lines 220-270 request the number of players and their first 
names. 

Line 280 sets the counters for the players and words. 

Line 290 indicates the current player. 
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Line 300 branches to line 340 if the data has been read. 

t ;^~ c pin p^n ^ead all words and clues R(A) is used for 
deleting already selected words. 

Lines 340-380 select one random word and using variables J & 
JJ, get its appropriate clue (line 380). 

Lines 390-590 allow the current player to enter his or her word 
to match the clues given. If the word does not match, the total points 
(TP) are decreased by 10. The computer then gives another clue, 
until 5 clues have been presented. If the user's word does not match , 
he or she is given the number of points indicated by the current 
value of TP. That word is then deleted, and the program advanced to 
the next player if more than one is playing. If the current player has 
used all 5 clues and did not get the correct word, that word will be 
retained for future use, and the program again advances to the next 
player. 

Lines 600-720 print all the player's names and their total points 
and then terminate the game. 

Lines 800-870 test to see if all data elements (words) have 
been selected and deleted. If not, program flow will branch to the 
next player, and the computer will select one of those words. If all 
the words have been used, the program is terminated using lines 

600-720. 

Lines 1000-1520 contain all the data elements for the words 

and clues. 
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2 V A 8 R 
SC DEHN 

PLEASE SELECT? 
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Games of General Interest 

Where's the Necessary Room lets you experience drunkenness 
without touching a bottle. See if you can find your way through the 
bar with the help of an inebriated computer. 

Troubles allows you to sob on the shoulders of the computer, 
which will offer you some sound advice. 

General Store pressures you to add prices together quickly. 
The swiftest thinker will win the game. 

Respect Your Computer is a game you'll never win! 

Love One Another lets you bring your problems with your 
spouse or friend to the computer and helps you resolve your dis- 
agreements. 

Date Service helps you determine who you are most com- 
patible with. 

Key a Date allows you to keep a secret file of all those you 
might like to call for a date. The information is safe from prying 
eyes. 
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WHERE'S THE NECESSARY ROOM? 

You're minding your own business inside this bar that is large 
enough to let two pro-football teams battle it out. You've imbibed 
quite a lot of liquid , and now you have an urge, a pain, and you must 
relieve it soon or "#"! So, instead of asking anyone, you and your 
computer will now try and locate that little room. There are plenty 
of meanies in this bar as well as many rooms ! Don't let the computer 
fool you. 

Sample Run 

WHERE'S THE NECESSARY ROOM??? 

SEE THE INSTRUCTIONS.. .YOU DRUNK? YES 

SO HERE YOU ARE AGAIN, YOU LUSH!!! 
FILLED YOUR KIDNEYS TO THE BRINK; 
YOUR HEAD IS SPINNING AND WHAT 
DO YOU NEED ?? NATURALLY, THIS 
BEING A COMPUTER PROGRAM, I YOUR 
COMPUTER WILL TRY AND HELP YOU 
LOCATE THAT LITTLE ROOM (IF THERE 
IS ONE!!) STEP BY STEP. 
NATURALLY THIS BEING A COMPUTER 
PROGRAM (DID I SAY THAT?) I HAVE 
ALSO HAD A LITTLE TOO MUCH... 
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HIT THE WHITE KEY? 
YOU DRUNK!!! 

AS 1 SAY...I AM ALSO A LITTLE 
TIPSY, IF MY CIRCUITS HOLD TO- 
GETHER LONG ENOUGH, WE TOGETHER 
WILL FIND THAT ROOM. WHAT'S YOUR 
NAME CLYDE? GRETA 
YOUR KIDDING, SUCH A LONG NAME. 
SO. .TO FIND THAT ROOM, I WILL 
INSTRUCT YOU ON THE ROUTE. YOU 
IN TURN WILLL PRESS EITHER THE 
LEFT ARROW KEY.. .OR THE RIGHT 
ARROW KEY, THAT IS IF YOU 
BELIEVE WHAT I TELL YOU. IF 
LUSH, HIT THAT KEY AGAIN? 
YOU DO NOT BELIEVE ME, PRESS 
THAT LONG BAR, AT THE BOTTOM 
OF THE KEYBOARD.. .OK GRETA? 
EXCUSE ME WHILE I UNSCRAMBLE A 
FEW FLIP-FLOPS 

GRETA WE ARE NOW AT TABLE 35 

MEANING, WE MUST TRAVEL 35 

TABLES TO REACH THE BAR. 

TOTAL DISTANCE, I WOULD ESTIMATE 

TO BE AROUND 144 FEET. 

GLANCING AROUND (SOMETHING YOU'RE 

NOT TOO GOOD AT) I JUDGE THERE ARE ABOUT 68 

CUSTOMERS WE MUST GET PAST... 

OK, LUSH... I MEAN GRETA 

GET UP AND MOVE RIGHT, AWAY 

FROM MS. FOUL MOUTH. SHE'S A MEANIE 

WE DON'T WANT TO TANGLE WITH. 

PRESS THE RIGHT ARROW OR 
THE LEFT ARROW OR THE LONG 
BAR.. .YOU DRUNK, QUIT BOBBIN' 
YOUR HEAD !! 
OK, LUSH... I MEAN GRETA 
GET UP AND MOVE LEFT, AWAY 
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MOVEMENT THROUGH 

BAR/OUTPUT 

MESSAGES 



TA< = 




ALL TABLES 
PASSED 






^Y 




Nfe 







D< =0 



CONTINUE 
MOVEMENT 



PRINT MESSAGE 
ON DOOR 



FINAL 
MESSAGE 



f STOP J 



Flowchart for Where's the Necessary Room? 



63 



FROM MR. SMASH. HE'S A MEANIE 



PRESS THE RIGHT ARROW OR 
THE LEFT ARROW OR THE LONG 
BAR.. .YOU DRUNK, QUIT BOBBIN' 
YOUR HEAD !! 

WE'RE GETTING CLOSER GRETA 
HOLD THAT BLADDER 111 

OUR DISTANCE IS NOW AT 41 FEET. 
WITH 17 TABLES AND 
STILL 79 CUSTOMERS TO GET BY. 
EXCUSE ME, THAT'S 76 CUSTOMERS. 
A FEW JUST PASSED OUT... 

OUR DISTANCE STANDS AT 41 FEET. 

WITH 17 TABLES 

STILL 76 CUSTOMERS TO GET BY. 

OK LUSH... I MEAN GRETA 

ALL DIRECTIONS POINT LEFT, AWAY 

FROM MR. P. WADDLE. HE'S A MEANIE, 

WE DON'T WANT TO TANGLE WITH. 

I SAID, GO LEFT, YOU WENT RIGHT 
GRETA, YOU ARE A LITTLE MORE 
DRUNK THAN I FIRST THOUGHT I! 
YOU JUST STEPPED ON MR. MUZZLE TOES. 
CANT YOU LISTEN TO DIRECTIONS ?? 

OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 
STILL 76 CUSTOMERS TO GET BY. 
EXCUSE ME, THAT'S 75 CUSTOMERS. 
A FEW MORE JUST PASSED OUT... 

OUR DISTANCE STANDS AT 41 FEET 

WITH 17 TABLES AND 

STILL 75 CUSTOMERS TO GET BY. 

OK LUSH.. .I MEAN GRETA 

LOOK RIGHT THEN MOVE RIGHT, AWAY FROM MS. LEAN 

TOO. SHE'S A MEANIE 
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WE DON'T WANT TO TANGLE WITH. 

WRONG DOOR !! 

THIS IS THE BASEMENT. 

OUR DISTANCE STANDS AT 41 FEET. 

WITH 17 TABLES AND 

STILL 75 CUSTOMERS TO GET BY. 

OK, LUSH... I MEAN GRETA 

LOOK LEFT THEN MOVE LEFT, AWAY 

FROM MR. MUZZLE. HE'S A MEANIE 

WE DON'T WANT TO TANGLE WITH. 

GUESS WHAT YOU'VE JUST WALKED 

INTO? YES, THE OFFICE! FEEL EMBARRASSED, YOU 

DRUNK !! 

OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 
STILL 75 CUSTOMERS TO GET BY. 
OK.LUSH...I MEAN GRETA 

PRESS THE RIGHT ARROW OR 
THE LEFT ARROW OR THE LONG 
BAR. ..YOU DRUNK, QUIT BOBBIN' 
YOUR HEAD !! 

I'M SORRY, MY MISTAKE, I TOLD 
YOU THE WRONG DIRECTION GRETA. 
DINGY !! YOU SHOULDN'T HAVE 
LISTENED THIS TIME II! 

HOW DID THAT BOTTLE THAT MS. FOUL MOUTH 
JUST BROKE OVER YOUR HEAD FEEL ?? 

OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 
STILL 75 CUSTOMERS TO GET BY. 
EXCUSE ME, THAT'S 70 CUSTOMERS. 
A FEW MORE JUST PASSED OUT... 

OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 
STILL 70 CUSTOMERS TO GET BY. 
OK, LUSH. ..I MEAN GRETA 
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WE WILL NOW MOVE RIGHT 

I'M SORRY, MY MISTAKE, I TOLD 
YOU THE WRONG DIRECTION GRETA. 
YOU SHOULDN'T HAVE 
LISTENED THIS TIME !!! 

OF ALL THE MEANIES TO RUN IN TO !!! 

NEXT TIME MS. FOUL MOUTH WILL PROBABLY 

FINISHING BREAKING YOUR FACE... 

OUR DISTANCE STANDS AT 41 FEET, 

WITH 17 TABLES AND 

STILL 70 CUSTOMERS TO GET BY. 



STOP 

This is not a complete run. 

Program Listing 

10 REM PROGRAM TITLE: WHERE'S THE 

20 REM NECESSARY ROOM ??? 

30 CLS 

40 FRINT"WHERE 'S THE NECESSARY ROOM ???" 

50 PRINT 

60 PRINT"SEE THE INSTRUCTI ONS . . . " ; 

65 FOR I = lTO500 : NEXT ; PR INT" YOU DRUNK"; 

70 INPUT XS 

80 IF XSO"Y" AND XS<>"YES" THEN DD=1: 
GOTO 27 5 

90 PRINT"SO HERE YOU ARE AGATN, YOU 
LUSH ! ! ! " 

100 PRINT"FILLED YOUR KIDNEYS TO THE BRINK;" 

110 FRINT'»YOUR HEAD IS SPINNING AND WHAT" 

120 PRINT"DO YOU NEED ?? NATURALLY, THIS" 

130 PRINT"BEING A COMPUTER PROGRAM, I YOUR" 

140 PRINT"COMPUTER WILL TRY AND HELP YOU" 

150 PRINT"LOCATE THAT LITTLE ROOM (IF THERE" 

160 PRINT M IS ONE!!) STEP BY STEP," 

170 PRINT"NATURALLY THIS BEING A COMPUTER" 

180 PRINT M FROGRAM (DID I SAY THAT?) I HAVE"" 

190 FRINT'*ALSO HAD A LITTLE TOO MUCH..." 

200 PRINT 
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210 
220 
230 
240 
250 
260 
270 
275 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
575 
580 
590 
600 
610 
615 
620 
630 
640 
650 



INFUT"HIT THE WHITE KEY";X$ 

CLS 

PRINT" YOU DRUNK! ! ! " 

FRINT"AS I SAY... I AM ALSO A LITTLE" 

FRINT"TIPSY, IF MY CIRCUITS HOLD TO...' 

FRINT H GETHER LONG ENOUGH, WE TOGETHER" 

FRINT"WILL FIND THAT ROOM. WHAT'S YOUR* 

IF DD=1 THEN PRINT"THE "; 

INPUT"NAME CLYDE" ;N$ 

IF LEN<N$ ) >=3 THEN 310 

GOTO 3 20 

FRINT"YOUR KIDDING, SUCH A LONG NAME." 

PRINT: IF DD=1 THEN 460 

PRINT"SO. . .TO FIND THAT ROOM, I WILL" 

PRINT" INSTRUCT YOU ON THE ROUTE. YOU" 

PRINT"IN TURN WILL PRESS EITHER THE" 

FRINT"LEFT ARROW KEY „ . . OR THE RIGHT" 

PRINT"ARROW KEY, THAT IS IF YOU" 

PRINT"BELIEVE WHAT I TELL YOU. IF" 

PRINT 

INPUT"LUSH, HIT THAT KEY AGAIN" ;X$ 

CLS 

PRINT"YOU DO NOT BELIEVE ME, PRESS" 

FRINT"THAT LONG BAR, AT THE BOTTOM" 

PRINT"OF THE KEYBOARD.., OK ";N$;"?" 

FOR I=lTO2000 :NEXT 

PRINT"EXCUSE ME WHILE I UNSCRAMBLE A" 

PRINT"FEW FLIP-FLOPS " 

RANDOM 

REM TABLES 

TA=RND(50) ; IF TA < = 1 5 THEN 500 

REM START DISTANCE FROM ROOM 

D=RND< 150) 

520 

IN BAR 



550 

WRONG DOORS 

FOR FINAL 



IF D<=50 THEN 

REM CUSTOMERS 

P=RND< 100) 

IF F< = 20 THEN 

REM NUMBER OF 

REM LEAVE TWO 

DR=RND(7 ) 

IF DR<=4 THEN 580 

REM READ WRONG DOOR TITLES 

FOR I=lTODR:READ D$'< I > : U< I > = I : NEXT 

FOR I=DR+lTO10 :READ F$(I):NEXT 

DATA WOMEN'S ROOM , ATTI C , EX IT , BASEMENT 

DATA OFFICE, WINE CELLAR, LUNCH 

DATA LAUNDRY, DRESSING, NECESSARY 

JxDR-4 :FQ=1 : FJ=1 : REM TIME / MEANIES 
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660 

£ j£ *Z 

670 

dao 

690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
8 00 
810 

820 
830 
640 
850 
860 
870 

880 
890 
900 
910 
920 
925 
930 
940 
950 

955 

960 

970 

980 

990 

1000 

1010 

1020 

1025 

1030 

1040 

1050 



FOR I=1T05:READ M$<I);M(I>=I 



r PPTt f Mt f T \ 



1 \ / \ "M» TUrM A a n 



ELSE NEXT 

DATA MR. MUZZLE, MR. SMASH 

DATA MS. LEAN TOO , MS . FOUL MOUTH 

DATA MR. P. WADDLE 

REM SOME STRING CONTENTS 

KS = ,I STILL H :B$="MY CPU HURTS" 

LS^'LEFT" :R$= "RIGHT" : Z $ = " ZZZZZZZZZZ" 

FOR I=lTO1500 :NEXT 

PRINT 

PRINT N$; M WE ARE NOW AT TABLE" ; TA 

FRINT"MEANING, WE MUST TRAVEL" ; TA 

PRINT"TABLES TO REACH THE BAR , " 

PRXNT"TOTAL DISTANCE , I WOULD ESTIMATE" 

PRINT"TO BE AROUND" ;D; "FEET. " 

PRINT"GLANCXNG AROUND ( SOMETH ING YOU'RE" 

PRINT"NOT TO GOOD AT) I JUDGE. THERE 

ARE ABOUT" ;P 

PRINT"CUSTOMERS WE MUST GET PAST..." 

REM MESSAGE B$ 

L = ~64 ; 1=0 

L=L+64 : 1=1+1 :FOR I I = 1T05 : NEXT 

PRINT^L, STRING $ (35 ,32) 

FRINT(§L + 30,MID$ <B$ , I , 1) : IF L<x896 THEN 

850 

GOSUB 1070:GOTO 920 

FRINT"OK, LUSH... I MEAN ";N$ 

T=0 : RETURN 

GOSUB 900:GOSUB 925:GOTO 960 

REM MEANIE SELECT 

M=RND<5):IF M(M>=0 THEN 930 

M$=M$ (M) :M(M)s0 

IF LEFT$<M$ ,2>="MS" THEN C $ = " . SHE" 

ELSE C$ = ". HE" 

RETURN 

PRINT"GET UP AND MOVE ";T$;", AWAY" 

PRINT"FROM ";MS;" ";C$;" ( S A MEANIE," 

PRINT"WE DON'T WANT TO TANGLE WITH." 

GOSUB 1000 :GOTO 1 130 

W$=INKEY$ ;T=T+1 ; IF T>=J*100 THEN 1025 

IF W$ = "" THEN 1000 

WW=ASC(W$ ) : RETURN 

PRINT 

FRINT"FRESS THE ";RS; U ARROW, OR" 

PRINT"THE " ;L$;" ARROW OR THE LONG" 

PRINT"BAR , , , YOU DRUNK, OUIT BOBBIN* " 
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1060 
1070 
1080 
1090 
1 100 
1110 
1 120 
1130 
1140 
1150 
1160 
1170 
1 180 
1190 
1200 
1210 
1215 
1216 
1220 
1230 
1240 
1250 
1260 

1270 
1275 
1280 
1290 
1300 

1310 
1320 
1330 
1340 
1345 
1350 
1360 
1365 
1370 
1380 

1390 
1400 

1410 
1420 
1430 
1440 



FRINT"YOUR HEAD M " ;T=0:GOTO 990 

REN GET LEFT / RIGHT 

FOR I=lTO10 

Y=RND<2 ) 

IF Y=l THEN T$=L$:GOTO 1120 

T$«R$ 

NEXT; RETURN 

IF WW+85=93 THEN 1170 

IF WW+8 5=94 THEN 1170 

IF WW=32 THEN 1170 

PRINT:GOTO 1030 

WW=ASC<W$ ) 

IF ABS(T-J) >=100 GOSUB 1520 

IF T$ = " RIGHT" AND WW+85=94 THEN 1440 

IF T$="LEFT" AND WW+85^93 THEN 1440 

IF WW=32 THEN FRINTrGOTO 1700 

IF T$="RIGHT" THEN F$ = L$ ELSE F$=RS 

PRINT 

FRINT"I SAID, GO ";T$;" , YOU WENT " ; 

PRINT N$;" , YOU ARE A LITTLE MORE" 

FRINT"DRUNK THAN I FIRST THOUGHT M" 

RE=RND(6) :UU=RND<5) :M$=M$ <UU) 

ON RE GOTO 1270,1290,1320,1345,1365, 

1400 

PRINT M$;" JUST BROKE PART" 

PRINT"OF YOUR FACE ! ! " 

GOTO 1430 

JUST STEPPED ON " ;M$ 

T YOU LISTEN TO DIRECTIONS 



F$ 



'YOU 
'CAN' 



TOES, 



DID THAT BOTTLE 
BROKE OVER YOUR 



THAT 
HEAD 



" ;M$ 
FEEL? ?" 



LISTEN, YOU ARE 
DINGY ! M " :GOTO 



AN" 

1430 



PRINT 

PRINT 1 

? ? " 

GOTO 1430 

PRINT"HOW 

PRINT"JUST 

GOTO 14 30 

IF JAsl THEN 1250 

FRINT"MOST LUSHES 

PRINT"EXCEFTION. . 

IF JA«1 THEN 1250 

FRINT M THREE KEYS TO PRESS, AND YOU MY" 

PRINT n DRUNK FRIEND, PRESS THE WRONG 

ONE ! ! " 

GOTO 1430 

PRINT"OF ALL THE MEANIES TO RUN IN 

TO ! M " 

FRINT'*NEXT TIME " ;M$;" WILL PROBABLY" 

PRINT H FINISH BREAKING YOUR FACE..." 

PRINT; ES="STANDS" : GOTO 1660 

REM MOVE CORRECT ? 
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1450 FL«RND<10> 

1460 IF PL<=DR THEN 1610 ELSE PRINT 

1470 FRINT"I'M SORRY, MY MISTAKE, I TOLD" 

1480 PRXNT"YOU THE WRONG DIRECTION " ;N$;" ." 

1490 PRINT n DINGY M YOU SHOULDN'T HAVE" 

1500 FRINT"LISTENED THIS TIME ! ! ! " 

15 10 PRINT: JA= 1 : GOTO 1250 
1520 REM SNORE MESSAGE 

1530 REM TAKING TOO LONG / WRONG KEY 

1540 FOR X^ITO LEN<Z$ ) 

1550 PRINT MID$ (2$ ,1,1); 

1560 FOR ER=lTO50:NEXT ER 

1570 NEXT I : PRINT 

1580 PRINT M THOUGHT I WOULD CUT A FEW" 

1590 FRINT^'Z'S WHILE YOU WERE LOOKING" 

1600 PRINT H FOR THE KEYS *': PRINT 

1605 «FOR I=lTO1200 :NEXT:RETURN 

1610 IF D<=50 THEN 1830 ELSE PRINT 

1615 PRINT"WE*RE GETTING CLOSER, ";N$ 

1620 PRINT"HOLD THAT BLADDER !M": PRINT 

1630 D=(D»INT(D/TA>»10> :E$="IS NOW" 

16 40 IF D<=0 THEN 2 5 00 
1650 TA=TA-1 :P=F-RND<5) 

1660 FRINT"OUR DISTANCE ";E$; H AT" ; D ; "FEET . " 

1665 IF TA<=0 FRINT"AND " ; : GOTO 1675 

1670 PRXNT"WXTH " ; TA ; "TABL ES , AND" 

1675 IF P<*0 THEN PRZNT"NO CUSTOMERS TO GET 
BY ! ! " :GOTO 16 90 

1676 IF P<=10 THEN K$="ONLY n 

1680 PRINT K$;" "; P ; "CUSTOMERS TO GET BY." 

1685 IF RND(TAX*10 AND XX»0 THEN 2300 

1690 XX=0:GOTO 2100 

1700 REM SPACE BAR ? 

1710 FL=RND<5> 

1720 IF PL<«2 THEN 1790 

1730 PRINT"WHY? WHY DID YOU PRESS THE SPACE" 

1740 FRINT"BAR?? OF ALL THE TIMES NOT TO" 

1750 PRXNT"BELIEVE ME, THIS TIME I WAS " 

;R$; •' . " 

1760 PRINT"YOU ARE AT THE SAME PLACE YOU" 

1770 PRINT"WERE YOU . . . YOU DINGY #!/#&'!" 

1780 PRINT: GOTO 1250 

1790 PRINT'*YOU WERE RIGHT, " jNS;" I TOLD" 

1800 PRINT"A BLOODY LIE AND YOU" 

1810 PRINT"DIDN'T FALL FOR IT !!!" 

1820 PRINT: GOTO 16 10 

1830 REM WRONG DOOR MESSAGE 

1840 IF FQ>DR THEN 1615 
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1850 DA=RND(DR) 

1860 IF U(DA)=0 THEN 1850 

1870 V$=D$ (DA) 

1880 U(DA)=0 ;PQ=FO+l 

1885 IF MIDS (V$ , 2, 1 ) = " X " THEN 2040 

1890 DA=RND(6> : IF DA = 6 THEN 1615 

1900 ON DA GOTO 19 10,1940,1970,2010,2040 

19 10 PRINT" YOU'VE JUST WALKED INTO THE " ;VS 
1920 FRINT"FEEL EMBARRASSED, YOU DINGY M 
1930 GOTO 20 70 

1940 FRINT"NO PLACE TO DRAIN A BLADDER HERE" 
1945 IF LEFT$(V$ ,2>="OF" PRINT"INTHE ";V$;" 

" :GOTO 2070 
1950 PRINT"THIS IS THE ";V$; 
1955 IF RIGHTS (V$ , 2 >= H CH" PRINT N ROOM M" 
1960 PRlNT:GOTO 2070 

1970 PRINT"FEEL ODD ? YOU'VE JUST STEPPED" 
1980 PRINT" (ALMOST) STRAIGHT INTO THE " ;VS 
1990 PRINT"HAVING PROBLEMS READING SIGNS ??" 
2 00 GOTO 2 70 
2010 PRINT"W RONG DOOR D I, N G Y 

! ! " 
2020 PRINT M THIS IS THE ";V$; 
2025 IF RIGOT^VS^b-CH" PRINT" ROOM" 

20 30 PRINT: GOTO 2 70 

2040 FRINT"GUESS WHAT YOU'VE JUST WALKED" 

2045 IF LEFT$<V$ # 2>-"EX" THEN 2065 

2050 PRINT"INTO? YES, THE ";V$; 

2055 IF RIGHT* <V$ , 2)="CH" PRINT"ROOM M" 

2060 PRINT:GOTO 1920 

2065 PR I NT" OUT THE " ; V$ ; " , " : GOTO 2070 

2070 PRINT:IF LEFT$ ( V$ , 2 ) * "EX" THEN 2250 

2 80 GOTO 24 10 

2100 REM CONTINUE MOVEMENT TO HEAD 

21 10 5J*PJ+1 :GOSUB 900 

2120 IF FJ<*»5 GOSUB 930 

2130 FOR ImlTO3500:NEXT:GOSUB 1070 

2140 WE«RND(5) : REM MOVEMENT MESSAGE SELECT 

2150 ON WE GOTO 2 16 0,2170,2180,2190,2200 

2160 PRINT"WE WILL NOW MOVE ";T$; 

2 165 GOTO 2 2 20 

2170 PRINT"ALL DIRECTIONS POINT ";T$; 

2 175 GOTO 2 2 20 

2180 PRINT T$;" IS THE RIGHT DIRECTION " ; 

2 185 GOTO 2 220 

2190 FRINT"LOOK ";TS; H THEN MOVE ";T$; 

2 195 GOTO 2220 

2200 PRINT'-DON'T STUMBLE NOW, DINGY M!" 
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2210 
2220 
2230 
2230 
2250 
2260 
2270 
2280 
2290 
2300 
2305 
2310 
2315 
2320 
2325 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
26 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 



MM$ ; ' 


' JUST PASSED OUT. 




THEN 


2360 






NEXT" 


: IF 


DF> = 7 


THEN 24 r 





! ! ! THE 


BOUNCER JUST" 




AA 










OUT" ; 


;AA; 


; "MORE, 


, FOR" 




DURING 


HAPPY 


HOUR, . . " 





PRINT"MOVE SLOWLY " ;TS; 

IF PJ.< = 4 PRINT", AWAY" : GOTO 970 

PRINT 

GOTO 99 

PRINT"GOING OUT THE ";V$;" WASN'T TOO" 

PRINT"SMOOTH. . .TURN AROUND, THEN WE'LL" 

PRINT"CONTINUE TO LOCATE THAT ROOM." 

FOR I=lTO3000 :NEXT 

GOTO 2100 

REM REMOVE MORE CUSTOMERS 

IF P<=3 THEN XX=l:GOTO 1690 

AA = RND(5) : DF=DF+1 : XX* 1 

IF DF> = 4 THEN 2340 ELSE~F=F~AA 

FRINT"EXCUSE ME, THAT'S" ;P; "CUSTOMERS, " 

IF DF> = 2 THEN MM$=»MORE" 

PRINT"A FEW " ; 

IF RND(P)<=10 

GOTO 24 10 

FOR I=slTO2Q00 ; 

PRINT H HOLD IT 

AA=RND(3) : F = F- 

PRINT"CARRIED 

FRINT"FIGHTING 

FOR I=lTO200G :NEXT 

PRINT 

E$="STANDS" : JA = 

GOTO 1660 

REM FINAL -- ROOM REACHED 

PRINT"YOU*VE REACHED THE ROOM M ! " 

FOR I=lTO2500 :NEXT 

I=RND< 10 ) 

IF K=DR THEN 2530 

PRINT"IF YOU CAN KEEP YOUR EYES OPEN" 

PRINT"LONG ENOUGH. . .RAISE YOUR HEAD" 

PRINT"AND READ THE SIGN ON THE DOOR." 

D$=F$ (I ) 

X=0 

FOR I=lTO900 :NEXT 

PRINT; X = X«-1 

IF X*7 FRINT@985 ,D$ ; " ROOM" 

IF X<=14 THEN 2600 

IF LEFT$ (D$ , 1 > = "N" THEN 2690 

PRINT 

PRINT"*** THE WRONG DOOR**' 

PRINT"ALL THIS FOR NOTHING, DINGY !M' 

GOtO 2760 

PRINT"THIS IS IT ! M " 

PRINT"THE RIGHT NECESSARY ROOM M!" 
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2710 PRINT^RELIEF IS ON THE WAY.-." 

2720 PRINT 

2730 FOR I=lTO4000 :NEXT 

2740 PRINT"NOW THAT YOU ARE FEELING MUCH" 

2750 FRINT"BETTER, SHALL WE HAVE " 

2760 FRINT (, ANOTHER RUN OF NECESSARY ROOK"; 

2770 INPUT X$ 

2780 IF X$O n Y" AND X$O n YES H THEN 2810 

2790 PRINT"GET TO DRINKING HERE VE GO ! ! " 

2800 FOR I=lTO1200 :NEXT: CLEAR:DD=1 ; GOTO 275 

28 10 PRINT 

2820 PRINT"END" 

2830 END 



Variables and Strings 

DD - Instructions not needed (when equal to 1) 

N$ - User's name 

TA - Number of tables 

D - Distance to room 

P - Customers in bar 

DR - Wrong doors, D$(I) 

M$(I) - Meanies in bar 

J - Time loop 

PJ - Moves toward room 

M - Selection of meanie 

WW - User's key closure 

RE - For random message, along with UU and M$ 

PL - Correct move (random) 

Explanation of the Program Lines 

Lines 10-270 display the general instructions if they are re- 
quired. 

Line 280 inputs the user's name. 

Lines 290-470 display the rest of the instructions. 

Lines 480-720 set the variables for play and read all the data 
statements. 

Lines 750-820 are messages to the user concerning distances, 
tables, and customers. 

Lines 830-870 let the user know how the computer feels. 

Lines 900-910 display a message used by GOSUB statements 
throughout the program. 

Lines 925-955 select a meanie. 
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Lines 960-980 tell the user which direction to take. 

Lines 1000-1020 form the TNKEY$ routine for the user's di- 
rection entry. 

Lines 1025-1060 display a message indicating that the user is 
taking too long to decide. 

Lines 1070-1120 get a left/right direction for the user. 

Lines 1130-1160 sort the key closures indicating the direction 
of movement. 

Lines 1170-1430 display more messages concerning move- 
ment to the room. 

Lines 1440-1510 display a wrong move message. 

Lines 1520-1605 display a message indicating that the user is 
taking too long. 

Lines 1610-1690 display a message indicating that the distance 
and number of tables are decreasing. 

Lines 1700-1820 display messages in response to the pressing 
of the space bar. 

Lines 1830-2440 display various messages concerning the 
user's position. 

Lines 2500-2830 display the final message printed on door of 
the room the user has come to. 



74 



The 
relatives 




■\\& 



t>o sS 



V\|V\at 



He*" 




H* 



°fy 



fy 



TROUBLES 

Depending upon the nature of your particular troubles, the com- 
puter will try and give you a solution. Of course, it would take more 
memory space that any computer has to cover every aspect of a 
person's troubles, so be patient with your computer. Give it the 
precise information it requires and who knows ? 

Sample Run 

TROUBLES 

SO YOU HAVE SOME TROUBLES AND 

YOU ARE TURNING TO ME, YOUR COMPUTER, 

I WILL HELP YOU IN EVERY WAY I 

CAN, USING LOGICAL DEDUCTIONS. 

PLEASE BE SPECIFIC 

WHEN ANSWERING ALL QUESTIONS 

I WILL SUBMIT TO YOU. THE MORE 

SPECIFIC YOU ARE, THE BETTER 

YOUR ANSWER WILL BE. 

USE NO COMMAS, SEMICOLONS, 

COLONS OR PERIODS. 

YOUR FIRST & LAST NAME7 TARGET MOORE 

MALE (M) OR FEMALE (F)? 

TRY AGAIN: CHECK IF NECESSARY. 
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MALE (M) OR FEMALE (F)?M 

TDOI IDI CC 



DATA COLLECTED THUS FAR: 
NAME TARGET MOORE 
SEX: MALE 
CONFIRM (Y/N)?Y 

WITH MORE THAN 1 WORD AND LESS 
THAN 10, DESCRIBE YOUR TROUBLES? WOMEN 
BE A LITTLE MORE SPECIFIC, WHAT 
ABOUT WOMEN? 

WITH MORE THAN 1 WORD AND LESS 
THAN 10 DESCRIBE YOUR TROUBLES? 
CAN'T GET ENOUGH RESPONSE FROM WOMEN 
TROUBLES 

SORTING WORDS 

JUST HOW MANY WOMEN?3 

GOOD GRIEF !! 

IS ANY ONE OF THESE YOUR WIFE?YES 

DO YOU FEEL YOU ARE CHEATING ON 
YOUR WIFE AND YOURSELF?YES 

YOU SHOULD FORGET THE OTHER 
WOMEN BEFORE YOU GET DEEPER THAN 
WHAT YOU ARE NOW.. TARGET 

DO YOU AGREE 

? NO 

WHY DON'T YOU AGREE TARGET ?l CHOOSE TO PLAY 
THE FIELD 

BECAUSE YOU CHOOSE TO PLAY THE FIELD? 
HOW LONG HAS THIS BEEN 
GOING ON TARGET 
SELECT ONE: 
1> DAYS 
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f START j 



INSTRUCTIONS 



NAME 




INPUT TROUBLE 



SEPARATE EACH 
WORD^SENTENCE 



COMPARE WITH 
WORDS-DATA LIST 





OUTPUT 
SOLUTIONS 




f STOP j 



Flowchart for Troubles. 
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2> WEEKS 
3> MONTHS 
4> YEARS 

21 

DID THESE WOMEN FIND OUT 
ABOUT ONE ANOTHER TARGET ? YES 

THAT'S THE TROUBLE: JUST STICK 
TO ONE WOMAN FOR AWHILE 
THINGS WILL WORK OUT MUCH 
BETTER. YOU'LL SEE, TARGET . 
LIKE TO TRY ANOTHER7NO 

END OF PROGRAM... 

Program Listing 

E10 REM PROGRAM TITLE: TROUBLES 

20 CLS: CLEAR 1200:GOSUB 30: GOTO 50 

30 PRINT TAB(10)"T ROUBLES" 

4 PRINT: RETURN 

50 PRINT"SO YOU HAVE SOME TROUBLES AND" 

60 PRINT"YOU ARE TURNING TO ME, YOUR 

f flMP 1 f "T* pS " 

70 FRINT"I WILL HELP YOU IN EVERY WAY I' 

80 PRINT"CAN USING LOGICAL DEDUCTIONS, 1 ' 

90 PRINT N FLEASE BE SPECIFIC 11 

100 FRINT M WHEN ANSWERING ALL QUESTIONS 1 * 

110 PRINT"I WILL SUBMIT TO YOU. THE MORE' 

120 FRINT"SPECIFIC YOU ARE, THE BETTER" 

130 FRINT*'YOUR ANSWER WILL BE , " 

140 FRINT"USE NO COMMAS, SEMI COLONS , " 

145 FRINT"COLONS OR PERIODS.* 1 

150 PRINT: FRINT"YOUR FIRST & LAST NAME"; 

160 INPUT N$:GOSUB 490 

170 INPUT"MALE (M) OR FEMALE <F)";S$ 

180 IF S$a"M" THEN S$ » "MALE ": GOTO 220 

190 IF S$="F H THEN S $=" FEMALE ": GOTO 220 

200 PRINT"TRY AGAIN; CHECK IF NECESSARY.' 

2 10 GOTO 170 

220 CLS 

230 GOSUB 30 

240 REM BEGIN 

250 PRINT"DATA COLLECTED THUS FAR:" 

260 PRINT"NAME: " ;N$ 
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270 FRINT"SEX: ";S$ 

290 GOSUB 550 

300 INPUT"CONFIRM (Y/N>";A$ 

310 IF A$<>"Y" THEN F$ = " M : GOTO 140 

320 DIM XS<46> , A<12> , A$ < 12) 

325 F$ = "" :W=1 : PRINT 

330 FRINT"WITH MORE THAN 1 WORD AND LESS" 

340 FRINT"THAN 10, DESCRIBE YOUR TROUBLES 11 

345 IF Y=l THEN Y=0 : FRINT"NO PERIODS..." 

350 INPUT F$ 

360 FOR 1=1 TO LEN(P$) 

370 IF MID$ <F$ , I , 1)=" " THEN 390 

375 IF MID$<P$ , I , 1 > = " . M THEN Y=l:GOTO 325 

380 NEXT: IF W< = 1 THEN 455 ELSE GOTO 470 

390 REM WORD COUNT 

400 W=W+1 

410 IF W>=11 THEN 430 

420 GOTO 380 

430 IF LEN(P$X=2GG THEN 470 

440 FRINT'^OU'VE ENTERED" ; W ; "WORDS " ;N$ 

445 PRINT"REENTER A SHORTER VERSION." 

450 GOTO 325 

455 PRINT"BE A LITTLE MORE SPECIFIC, WHAT" 

460 PRINT"ABOUT ,, ;PS; ,, ? M 

465 GOTO 325 

470 REM DEFINE PARTS OF PROBLEM 

480 CLS:GOSUB 30:GOTO 580 

490 REM FIRST NAME BASIS 

500 FOR 1*1 TO LEN<N$ ) 

510 F$=r$+MID$ (N5,I,i) 

520 IF MID$<N$ , I , 1)=:" " THEN RETURN 

530 NEXT 

54 RETURN 

550 REM TIME LOOP 

560 FOR TI«lTO1000:NEXT 

5 70 RETURN 

580 REM REPLACEMENT WORDS / WORD DATA 

590 FOR 1*1 TO 46:READ X $ < I > : NEXT : L= 1 : Q« 1 

600 REM WORD COUNT / WORD IN DATA LIST 

610 1=1 :K=LEN(PS) 

620 IF MIDS (PS , I , D»" " THEN 650 

630 I=I+1;IF I=K THEN 670 

640 GOTO 62 

650 A(Q>«L:L«I : Q=Q+ 1 : REM WORD SEPARATION 

6 60 GOTO 630 
670 A<Q)=L 

680 A< D=0: 1 = 1 :Z = Q:Q=1 

690 FOR L = A(I) + 1 TO ACI + D-1 
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700 A$(Q>=A$ <Q)+MID$ <P$ ,L, 1 ) 

710 NEXT:Q«Q+1 

720 IF I=Z THEN 740 

73 1 = 1 + 1 :GOTO 690 

740 REM LAST WORD IN SENTENCE 

750 FOR L=A(I>+1 TO LEN<P$> 

760 A$<Q)=A$ <Q>+MID$ <P$ ,L, 1 > 

770 NEXT:Q=1 

780 A$(Z)=:A$ (2+1 > : A$ <Z+1 > = "" 

790 REM COMPARE EACH WORD IN SENTENCE 

800 REM WITH WORDS IN DATA LIST FOR MATCH 

810 1 = 1 

820 IF X$(I)=A$(Q) THEN 1010 

830 1 = 1 + 1: IF I> = 30 AND Q>=3 THEN 890 

840 IF I>=47 THEN 860 

8 50 GOTO 8 20 
860 Q=Q+1 

870 IF Q>=Z+1 THEN 910 

88 GOTO 810 

890 PRINTC75, "SORTING WORDS" 

900 GOTO 8 4 

9 10 REM WORD NOT IN FILE 
920 PRINT 

930 PRINT" I AM REALLY SORRY, BUT I 

AM UNABLE" 
940 FRINT"TO DISCUSS THIS PARTICULAR 

PROBLEM" 

950 PRINT"WITH YOU. PERHAPS YOU WOULD" 

960 FRINT"LIKE TO TRY ANOTHER"; 

970 GOSUB 980;GOTO 990 

980 INPUT A$ : PR INT : RETURN : REM STRING ENTRY 

990 IF AS=:"Y" OR A$ = "YES" THEN 1180 

10 00 GOTO 46 2 

1010 REM WORD LOCATED / START OUTPUT 

1020 W$=X$< I > 

1030 M=I 

1040 IF M>=1 AND M< = 4 THEN 1190 

1050 IF M>«5 AND M<=8 THEN 1190 

1060 IF M>=9 AND M<=16 THEN 2700 

1070 IF M>=20 AND M<=28 THEN 3300 

1080 I^F M>=29 AND M<=31 THEN 2000 

1090 IF M>=32 AND M<=35 THEN 3600 

1100 IF M>=36 AND M<=42 THEN 4030 

1110 IF M=43 OR M=45 THEN 2100 

1120 IF M=44 OR M=46 THEN 2100 

1180 RESTORE: GOTO 325 

1190 IF M=2 OR M=4 OR M= 6 OR M= 7 THEN 2 100 

12 00 PR I NT" JUST HOW MANY " ;W$; 
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1205 IF M=5 OR M= 8 THEN 5820 

1210 GOSUB 980 : A=VAL<A5 ) :R$=XS (43) 

1220 AA=A:IF AA> = 3 PRINT M GOOD GRInF I!" 

1225 IF A=rl THEN 1270 

1230 FRINT"ARE ANY ONE OF THESE YOUR " ;R$; 

1240 GOSUB 980 

1250 IF A$="YES" OR A$="Y" THEN V= 1 

1260 IF V=l THEN 1390 

1270 PRINT"SO YOU'RE JUST FLAYING THE FIELD.' 

1280 FRINT M ARE YOU SEARCHING FOR A " ; R$ ; 

1290 GOSUB 980 

1300 IF A$="YES" OR A$="Y" THEN 1750 

1310 FRINT"YOU FLAN ON STAYING SINGLE"; 

1320 GOSUB 980 

1330 IF A$="YES" OR k*="Y" THEN 1750 

1340 PRINT"YOU*RE NOT GOING TO STAY SINGLE," 

1350 FRINT"BUT AT THE SAME TIME YOU'RE" 

1360 PRINT" LOOKING FOR A ";R$;" YOU" 

1370 FRINT"HAVE GOT TROUBLES M" 

13 80 GOTO 4 6 00 

1390 PRINT H DO YOU FEEL YOU ARE CHEATING ON" 

1400 FRINT"YOUR " ; R $ ; " AND YOURSELF"; 

1410 GOSUB 980 

1420 IF AS = ,, YES" OR A$="Y" THEN 1560 

1430 PRINT"YOU DON'T " ; F $ ; 

1440 GOSUB 980: IF A$="YES" THEN 1560 

1450 PRINT"ONE OF THOSE HARD-NOSED HUMANS," 

1460 PRINT M HUH? I SUGGEST YOU NIP IT" 

1470 FRINT"AT THE BUD, EXPLAIN THINGS TO" 

1480 PRINT"YOUR ";R$;" AND FORGET THE OTHER" 

1490 PRINT W$;" BEFORE YOU GET DEEPER THAN" 

1500 PRINT H YOU ARE NOW . . . " ; F $ 

1505 PRINT 

1510 PRINT"DO YOU AGREE M ;: GOSUB 980 

1515 IF KL-l THEN KL«0:GOTO 4700 

1520 IF A$» H NO" OR A$*"N" THEN 1580 

1530 PRINT"I THOUGHT YOU'D SEE THINGS" 

1540 PRINT"MY WAY " ;F$ 

15 50 GOTO 4 6 00 

1560 PRINT"YOU SHOULD FORGET THE OTHER" 

15 70 GOTO 14 90 

1580 FRINT"WHY DON'T YOU AGREE ";F$; 

1590 GOSUB 980:GOSUB 5740 

16 00 PR INT" BECAUSE "; AS ; "?" 

1610 FRINT"HOW LONG HAS THIS BEEN" 

1620 PRINT"GOING ON " ; F $ 

1630 PRINT"SELECT ONE:" 

1640 PRINT"1> DAYS" 
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1650 PRINT"2> WEEKS" 

1 £ 6 PR I MT " 3 > MONTHS n 
1670 PRINT"4> YEARS" 
1680 GOSUB 980: A=*VAL(AS ) 

1690 XF*A=l THEN DAS « " DAYS " : GOTO 1740 

1700 IF A«2 THEN DA$ - "WEEKS M : GOTO 1740 

1710 IF A=3 THEN DAS * "MONTHS" : GOTO 1740 

1720 IF A=4 THEN DAS =" YEARS" : GOTO 1740 

1730 PRXNT:GOTO 1610 

1740 IF JK=1 THEN JK=0: RETURN 

1750 IF KJ=1 THEN KJ=0 : PRI NT : GOTO 3640 

1755 PRINT"DID THESE ";WS;" FIND OUT" 

1760 PRINT"ABOUT ONE ANOTHER ";FS; 

1770 GOSUB 980 

1780 IF A$="YES" OR A$="Y" THEN 1800 

17 90 GOTO 1850 

1800 PRINT"THAT'S THE TROUBLE! JUST STICK" 

18 10 PRINT"TO ONE ";XS(4); M FOR A WHILE." 
1820 PRINT M THINGS WILL WORK OUT MUCH" 
1830 PRINT"8ETTER, YOU'LL SEE " ; F S ; " . " 

18 40 GOTO 46 00 

1850 PRINT"THEY DIDN'T? SO THE TROUBLE" 

1860 PRINT"MUST BE WITH YOU. WHY IS IT" 

1870 PRINT"NECESSARY FOR YOU TO SEE";AA 

1880 PRINT W$;" AT ONCE? HAVE YOU TRIED" 

1890 PRINT" JUST ONE" ;: GOSUB 980 

1900 IF ASa"YES" OR A$a n Y" THEN 1930 

1910 PRINT"YOU HAVEN'T? TRY IT!" 

1920 GOTO 182 

1930 PRINT"YOU HAVE ?.I ASSUME THAT YOU" 

1940 PRINT"DIDN'T LIKE IT ";F$; 

1950 GOSUB 980 

1960 PRINT"I MIGHT SUGGEST YOU KEEP TO" 

1970 Z=RND(6):IF Z=l THEN 1970 

1980 PRINT"YOURS£LF FOR AT LEAST" ; Z ; "WEEKS . " 

19 90 GOTO 18 20 

2000 PRINT"ARE YOU AWARE WHAT ";X$<30> 

2010 PRINT"WILL DO TO YOUR HEALTH" ;: GOSUB 980 

2020 IF A$="N" OR A$="NO" THEN 2060 

2030 PRINT"YOU ARE? THEN YOU SHOULD TAKE" 

2040 PRINT"STEPS TO STOP ... NOW " ; F $ ; " M " 

2 50 GOTO 4600 

2060 PRINT"THROAT CANCER, LUNG CANCER, A" 

2070 PRINT"SHORTER LIFE EXPECTANCY. JUST" 

2080 PRINT"TO NAME A FEW. TAKE A FEW" 

2 90 GOTO 2040 

2100 IF M<=4 OR M=44 OR M=43 THEN R$=X$(4) 
: JJ=1 :GOTO 2120 
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21 10 R$=X$<6> 

2 120 PRINT"WHAT IS THE SINGLE MOST WORD" 

2130 PRINT"THAT WOULD BEST DESCRIBE YOUR" 

2140 PRINT"TROUBLES WITH THIS ";R$; 

2150 GOSUB 980 

2160 E$=A$ 

2220 PRINT"NOT ENOUGH " ; E $ ; " " ;F$; 

2230 GOSUB 980 

2235 IF A$<>"YES" AND ASO"RICHT" THEN 2280 

2240 PRINT"SO YOU ARE JUST NOT SATISFIED" 

2250 FRINT"WITH THE WAY THINGS ARE GOING 11 

2260 FRINT"WITH YOUR " ; E $ ; 

2270 GOSUB 980 

2280 PRINT"OH I SEE " ; F $ ; " . HAVE YOU" 

2290 PRINT"DISCUSSED THIS WITH "; 

2300 IF JJ=1 FRINT"HER" ; : GOTO 2320 

2310 PRINT M HIM n ; 

2320 GOSUB 980 

2330 IF A$="N" OR A$="NO" THEN 2360 

2340 FRINT"AND I ASSUME IT DIDN'T HELP." 

2350 JK=1 :GOSUB550:FRINT:GOSUB 1 6 1 : GOTO 

2430 

2360 FRINT"TRY IT; THINGS JUST MIGHT" 

2370 PRINT"WORK OUT FOR THE BEST. IF" 

2380 FRINT"NOT, CONSULT WITH ME AGAIN" 

2390 PRINT"AND I WILL GIVE YOU A" 

2400 PRINT"DIFFERENT ANSWER TO YOUR" 

2410 FRINT"TROUBLES, " ; F $ ; " . " 

2420 KLal :GOTO 1505 

2430 PRINT"DURING THE PAST ";DA$;" HOW" 

2440 PR I NT "MANY TIMES HAVE YOU DISCUSSED" 

2450 PRINT"THIS WITH "; 

2460 IF JJol PRINT"HER"; : GOTO 2480 

2470 PRINT"HIM"; 

2480 GOSUB 980 

2490 A=VAL(A$) 

2500 PRINT"DID ANY OF THOSE "; A ; "TIMES HELP" 

2510 PRINT"AT ALL " ; F $ ; 

2520 GOSUB 980 

2530 IF A*«"Y" OR AS="YES" THEN 2580 

2535 IF A<=4 THEN 2580 

2540 PRINT"I WILL HAVE TO TELL YOU TO" 

2550 PRINT"SEEK SOME OUTSIDE HELP ON" 

2560 FRINT"THIS MATTER . . . " ; F $: KL= 1 

2570 X=RND(2):IF X«l GOTO 4600 ELSE 1505 

2580 FRINT"CONTINUE THEN TO DISCUSS THIS" 

2590 PRINT"PROBLEM OF " ; E $ ; " WITH "; 

2600 IF JJ«1 PRINT"HER" : GOTO 2620 
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2610 FRINT"HIM" 

2620 FRINT"IF YOU'VE PROGRESSED THIS" 

2630 PRINT"FAR, THINGS WILL SURELY GET" 

2640 PRINT"BETTER. . . " ;F$ 

26 50 GOTO 46 00 
2700 REM MONEY 

27 10 PRINT"DO YOU HAVE A STEADY "; 
27 2 PRINT X$(36) ; " " ;F$; 

2730 GOSUB 980 

2740 IF A$»"N" OR A$="NO" THEM 2880 

2750 IF W$OX$<13> THEN 2770 

2760 GOTO 2820 

2770 PRINTOUT YOU ARE IN " ; X $ < 1 3 > ; : 

GOSUB 980 

2780 IF A$="N" OR ASs»NO" THEN 2990 

2790 PRINT"HAVE YOU CONSIDERED A " ; X $ < 1 4 > ; 

2800 GOSUB 980 

2810 IF A$="Y" OR A$="YES" THEN 3020 

2820 PRINT'TINANCE CHARGES ARE HIGH, BUT 11 

2830 PRINT"ONE PAYMENT WOULD PROBABLY BE' 1 

2840 PRINT"EASIER THAN SEVERAL TO DIFFERENT" 

2850 PRINT n ONES " ; FS ; " . YOU SHOULD" 

2860 PRINT"CONSIDER A " ;X$( 14) ; " . " 

2 8 70 GOTO 46 

2880 FRINT"ARE YOU WORKING PART-TIME"; 

2890 GOSUB 980 

2900 IF AS="N" OR A$="NO" THEN 3120 

2910 PRINT"0,K„ ";FS;"YOU HAVE GOT A";X$(36> 

2920 PRINT"BUT, YOU ARE ONLY WORKING" 

2930 PRINT"PART-TIME. ARE YOU DEEPLY IN "; 

2940 PRINT X$( 13) ; : GOSUB 980 

2950 IF A$="Y" OR A$="YES" THEN 3090 

2960 PRINT"SO I WILL ASSUME THAT YOU JUST" 

2970 S>RINT"NEED SOME EXTRA CASH.,." 

2 9 80 GOTO 2 7 90 

2990 PRINT"YOU HAVE A STEADY ";X$<36>;" YOU" 

3000 PRINT"ARE NOT IN ";X$<13>;" " 

3010 GOTO 2960 

3020 PRINT"DID THE " ; X $ < 4 1 ) ; " TURN YOU DOWN" 

3030 GOSUB 980 

3040 IF A$= n Y" OR A$="YES" THEN 3250 

3050 PR I NT" YOU NEED " ; X $ ( 1 1 ) ; " , YOU APPLIED" 

3060 PRINT"FOR A " ; X S < 1 4 ) ; " , THEY DIDN'T" 

3070 PRINT"TURN YOU DOWN. WHAT'S THE BEEF"; 

3080 GOSUB 980: JJ=1 : GOTO 3250 

30 9 PR I NT" SO THAT'S IT ! « " 

3100 PRINT"SEEK A HIGHER PAYING JOB ";F$;"." 

3110 GOTO 4600 
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3120 PRINT"ARE YOU DISABLED ";F$;:GOSUB 980 

3130 IF A$="N" OR A$= n NO" THEN 3200 

3140 PRINT H THAT EXPLAINS THE " ; X $ ( 1 1 ) ; 

3 150 PRINT" TROUBLE. " 

3160 FRINT"I MIGHT SUGGEST YOU SEARCH FOR A" 

3170 FRINT"NICE FINANCE " ; X $ ( 4 1 ) ; " THAT WILL" 

3 180 PRINT"UNDERSTAND YOUR PROBLEM. TODAYS" 

3190 GOTO 2820 

3200 PRINT"I WILL HAVE TO ASSUME FROM ALL" 

32 10 FRINT"OF YOU ANSWERS THAT YOU ARE JUST" 

3220 PRINT"A LAZY PERSON " ; F $ ; " LOOKING" 

3230 PRINT"FOR EASY CASH, GET A " ; X $ ( 3 6 > ; " ! ! " 

3240 GOTO 4600 

3250 FRINT"WAIT A FEW MONTHS, IF POSSIBLE 11 

3260 PRINT"AND REAPPLY FOR THE " ; X $ C 1 4 > 

3265 IF J J si THEN JJ=0:GOTO 3290 

3270 PRrNT"THEY SHOULDN'T TURN YOU DOWN A" 

3280 FRINT"SECOND TIME " ; F $ ; " . " 

3 2 90 GOTO 46 00 

3300 IF M>=20 AND M<=22 THEN 2790 

3305 IF M=25 OR M=26 THEN JX=l:GOTO 4270 

3310 PRINT"HAVE YOU DISCUSSED THIS WITH" 

3320 PRINT"THE " ; X $ < 2 5 ) ; " OR THE ";XS(26>; 

3330 GOSUB 980 

3340 IF ASa"N" OR A$="NO" THEN 3520 

3350 FRINT"DID THIS SOLVE ANYTHING ";F$; 

3360 GOSUB 980 

3370 IF A$a"N" OR A$a"NO n THEN 3400 

3380 PRINT" IS THIS A DUPLEX H ;: GOSUB 980 

3390 IF A$« H N" OR A$="NO" THEN 3540 

3400 PRINT"HAVE YOU TALKED TO OTHER TENANTS" 

3410 FRINT n ABOUT YOUR SITUATI ON" ;: GOSUB 980 

3420 IF A$="N" OR A$="NO" THEN 3560 

3430 FRINT M AND THIS, EVIDENTLY, DIDN'T HELP." 

3440 PRINT" IF YOU HAVE IN FACT TALKED TO" 

3450 FRINT"THE " ; X $ < 2 6 > ; " ABOUT THIS J ' 

3460 FRINT"AND NOTHING WAS SOLVED, I WOULD" 

3470 PRINT"SUGGEST MAKING \JF A SCHEME TO" 

3480 PRINT"BREAK THE " ; X $ ( 2 7 ) ; " OR LEASE." 

3490 PRINT"SEEK A DIFFERENT LOCATION WITH" 

35 00 PR INT" OTHER ";X$ (24) ; " " ; F $ ; " . " 

3510 GOTO 4600 

3520 PRINT"DO SO NOW, THEN ANSWER THE NEXT" 

3530 PRINT M SET OF QUESTIONS, " ;F$:GOTO 3350 

3540 PRINT*YOU LIVE IN A SINGLE ";X$<23> 

3 5 50 GOTO 3 4 40 

3560 PRINT"DO SO NOW, THEY MIGHT BE GOING" 

3570 FRINT"THROUGH THE SAME THING, IF THIS" 
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3580 PR INT" FAILS, ";F$;" I WOULD" 

3 5 90 GOTO 33 70 

3600 FRINT"WHY DO YOU FEEL " ;W$;" ";F$; 

3610 GOSUB 960 

3620 PRINT" I FELT THAT WAY ONCE, UNTIL I" 

3630 FRINT n RECEIVED A NEW RAM." 

3640 FRINT"DO YOU HAVE FRIENDS ";F$; 

3650 GOSUB 980 

3660 IF A$="N" OR A$="NO" THEN 3830 

3670 PRINT"DISCUSSING DIFFERENT THINGS WITH" 

3680 PRINT"THEM SHOULD MAKE YOU FEEL SOME-" 

3690 PRINT"WHAT BETTER. HOW OFTEN HAVE YOU" 

3700 FRINT"FELT THIS WAY ";F$;JK=1 

3710 GOSUB 1630 

3720 IF Ax4 THEN 3800 

3730 PRINT"SO IT HASN'T BEEN GOING ON TOO" 

3740 FRINT"LONG " ;F5 ; " . WHAT IS THE ONE" 

3750 PRINT" THING THAT WOULD CHEER YOU MOST" 

3760 PRINT"AT THIS MOMENT" ;: GOSUB 980 

3770 PRINT"THEN DO THIS NOW ";F$;". IF" 

3780 PRINT"ALL FAILS YOU CAN RETURN TO ME." 

3790 KLsl :GOTO 1505 

3800 PRINT"THAT IS A LONG TIME TO BE IN THIS" 

3810 PRINT" STATE OF MIND "; F •;". WHAT IS THE" 

382 GOTO 37 5 

3830 PRINT"DO YOU LIVE WHERE YOU COULD MEET" 

3840 FRINT"SOME NEW FRIENDS ";F$;:GOSUB 980 

3850 IF A0^"N" OR A$o»NO" THEN 3920 

3860 FRINT"WHY DON'T YOU GET OUT AND MEET" 

3870 PRINT"SOME NOW? IS SOMETHING ELSE" 

3880 PRINT"HOLDING YOU BACK";:GOSUB 980 

3890 PRINT"OH, I SEE ";F$:GOTO 3920 

3900 IF S$ = "MALE"' THEN RS = X$ ( 43 > : GOTO 1280 

3910 RSoXS (45) : JJ=1 : GOTO 1280 

3920 PRINT"HOW ABOUT MOVING TO A" 

3930 PRINT"DIFFERENT LOCATION "; F$ ;: GOSUB 98 

3940 IF AS="N" OR A$="NO" THEN 3980 

3950 PRINT"I BELIEVE THINGS WILL WORK OUT" 

3960 PRINT"FOR THE BEST WITH THIS MOVE." 

3970 GOTO 46 00 

3980 FRINT"ARE YOU TRYING TO BE CONTRARY ";F$ 

3990 GOSUB 980 

4000 FRINT'^ET'S TRY A DIFFERENT APPROACH TO' 

4010 PRINT"THIS SUBJECT ";F$:GOSUB 550 

40 15 IF Mat 4 3 OR M=4 5 THEN PRINT: GOTO 3640 

4020 KJcl :GOTO 3900 

4030 IF M=37 OR M=s38 THEN 4270 

4040 PRINT"WHAT'S THE TROUBLE WITH YOUR ";W0; 
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4050 GOSUB 980:GOTO 4540 

4060 IF W$=X$(36> THEN 4080 

4070 IF M»41 OR M«42 THEN 4120 

4080 FRINT"HAVE YOU ASKED FOR A RAISE IN FAY" 

4090 GOSUB 980 

4100 IF AI- M N" OR A$*"NO" THEN 4520 

4110 PRINT" I ASSUME YOU WERE TURNED DOWN." 

4120 FRINT"DO YOU BELONG TO A UNION " ;F$; 

4130 GOSUB 980 

4140 IF A4 = "N" OR A$«"NO" THEN 4340 

4150 FRINT"DO OTHERS FEEL THE WAY YOU DO' 1 ; 

4160 GOSUB 980 

4170 IF A$="N" OR A$-"NO" THEN 4440 

4180 PRINT"HAVE ALL OF YOU MET TO DISCUSS" 

4190 FRINT"A POSSIBLE STRIKE " ; F $ ; 

4200 GOSUB 980 

4210 IF A$»"N" OR A$s"NO" THEN 4440 

4220 FRINT"AGAIN, I ASSUME THINGS DIDN'T" 

4230 PRINT M TURN OUT WELL ";F$;". I WOULD" 

4240 FRINT"SUGGEST THAT YOU TRY AND LOCATE" 

4250 FRINT"ANOTHER H ;X$<36>;«* " ; F $ ; " . " 

4 2 60 GOTO 4 6 00 

4270 PRINT"WHAT EXACTLY IS THE PROBLEM" 

4280 PRINT"WITH YOUR "; WS ;" "; F $;: GOSUB 980 

4290 PRINT"HAVE YOU BROUGHT THIS TO HIS OR" 

4300 FRINT"HER ATTENTION, ";F$;:GOSUB 980 

4310 IF A$*"N" OR A$="NO" THEN 4455 

4320 PRINT"YOU HAVE AND YOU FEEL YOU AREN'T" 

4330 PRINT"BEING TREATED FA I RL Y" ; : GOSUB 980 

4335 IF JXsl THEN 3400 

4340 PRINT"HOW LONG HAVE YOU BEEN EMPLOYED" 

4350 PRINT"WITH THIS ";X$C41>;" ";F$; 

4360 JK=1 :GOSUB 1630 

4370 IF A = 4 THEN 4390 

43 8 GOTO 3100 

4390 PRINT"YOU'VE BEEN WITH THIS ";X$<41> 

4400 PRINT"FOR QUITE AWHILE. IF POSSIBLE" 

4410 PRINT"YOU SHOULD STICK WITH IT FOR AS" 

4420 PRINT"LONG AS YOU CAN ";F$ 

4 4 30 GOTO 4 6 00 

4440 PRINT"YOU ARE ALONE ON THIS MATTER." 

4450 GOTO 3100 

4455 IF JX=1 THEN 3400 

4460 PRINT"SIT DOWN WITH YOUR ";X$<37>;" 

4470 PRINT"DISCUSS THIS MATTER FULLY WITH" 

4480 PRINT"HIM OR HER. IF THEY DO NOT UNDER-" 

4490 PRINT"STAND YOUR PROBLEM " ; F $ ; " I" 

4500 PRINT"WOULD SEEK ANOTHER JOB." 
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OF 


PROGRAM 


OR 


AS="NO" 


DO 


AGREE , I 



45 10 PRINT: GOTO 4 120 

a k 2 PR I NT "TRY IT , "; F $;"!!" : GOTO 4120 

4530 PRINT" I ";:GOTO 4240 

4540 FOR U*l TO LEN<A$) 

4550 IF MIDS < AS , U , 4)=X$ (37) THEN 4580 

4560 IF MIDS (AS ,U,6)=X$ (38) THEN 4590 

4570 NEXT:GOTO 4 0<S0 

4580 WS=MIDS (AS ,U, 4) : GOTO 4595 

4590 WS^NIDS (AS ,U, 6) 

4 5 95 GOTO 42 70 

4600 GOSUB 550:PRINT 

46 10 GOTO 96 
4620 PRINT 
4630 PR INT" END 
4 6 40 END 

4700 IF ASa"N" OR AS="NO" THEN 3980 

4710 PRINT M YOU DO AGREE , I FIGURED YOU WOULD" 

4720 PRINT F$;". DO YOU ALWAYS TEND TO 

4730 PRINT M AGREE WITH COMPUTERS"; 

4740 GOSUB 980 

4750 IF A$b m N" OR A$="NO" THEN 3980 

4760 PRINT"SO THEN YOU AGREE WITH COMPUTERS" 

4770 PRINT"ALMOST CONSTANTLY " ; F $ ; " , " 

4780 PRINT H WOULD YOU AGREE IF I SAID THAT" 

4790 PRINT" IF YOU PRESS ANOTHER" 

4800 FRINT"KEY, I COULD KILL THIS WHOLE" 

4810 FRINT"FROGRAM, ";F$;:GOSUB 980 

4820 IF AS="N" OR A$="NO" THEN CLS:GOTO 4850 

4830 PRINT"GOOD THING YOU SAID " ; AS ;"..." 

4 8 40 GOTO 46 

4850 FOR TT=1 TO 10000:NEXT 

4860 PRINT"WE'RE YOU SCARED " ; F S ; " ? " 

4870 GOTO 4600 

5 2 00 REM WORDS / DATA BANK 

5 2 10 DATA G I RLS , G I RL , WOMEN , WOMAN , MEN , MAN 

5220 DATA BOY , BOYS , B I LLS , B I LL , NONE Y 

5230 DATA F INANC I AL , DEBT , LOAN , TAX , TAXES 

5240 DATA CAR , CARS , AUTO , HOUSE , HOUSES 

5 250 DATA HOME , APARTMENT , APARTMENTS 

5260 DATA LANDLORD , OWNER , CONTRACT , RENT 

5270 DATA C I GARETTES , SMOK ING , C I GARETTE 

5280 DATA LONELY , ALONE , DEPRESSED , AFFRAI D 

5290 DATA JOB , BOSS , FOREMAN , SAL ARY , INCOME 

5300 DATA COMPANY , INDUSTRY , WI FE 

5310 DATA GIRLFRIEND, HUSBAND, BOYFRIEND 

5740 REM SHORTEN STRING 

5750 U$=A$ : AS="" 

5770 FOR 1=1 TO LEN(U$ ) 
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5780 IF MID$ (US , I , 2 > =* u I » THEN 5800 

5790 A$=A$+MID$(U$,I,1> : NEXT; RETURN 

58 00 A$«A$ + ,, YOU" : Iol+t 

58 10 GOTO 57 8 

5820 G0SU8 980 : A«VAL < A$ ) 

5830 REM REDO STRING CONTENTS 

5840 R$*X$(45) 

58 5 GOTO 1220 



Variables and Strings 

N$ - First/last name of user 

S$ - To differ between male and female 

A$ - Used throughout the program for string entrys (input) 

P$ - Entry of troubles 

W - Word count, number of words in sentence (P$) 

Y - Beginning of program, for use of periods in sentence 

F$ - First name of user 

TI - Time loop (pause) during program run 

X$(N) - Data list of Words that computer can react to from the data 

statements. 
I - Used as a counter 
Q - Used in conjunction with A$(N) for the separation of words in a 

sentence 
L - Number of letters in each word (LEN amount) 
A(N) - Total number of letters per word 
Z - Total count of words 
W$ - Singled-out word from the beginning sentence that matches a 

word from the data list 
M - Location of a particular word from the data list 
A - VALue of A$ 

R$ - Singled-out word from the data list 
KL - 0/1 variable for messages, comparison 
DA$ - Length of troubles, i.e., days, weeks, months, or years 
JK,KJ - 0/1 variable (true/false comparison) 
Z - A random amount for print statements 
JJ - Also for print statements 
E$ - Contents of A$ (selected areas) 
X - For random print statements 
JX - 0/1 variable 
U - Used in the for-next loop (A$) that examines the singled-out 

word 
TT - Secondary time loop (pause) for end 
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U$ - Contents compared, for changing "I" to "YOU" for print 
messages 

Explanation of the Program Lines 

Lines 10-145 clear memory for string storage and display brief 
instructions. 

Lines 150-160 request the input of the user's first and last 
name. 

Lines 170-210 begin the actual program if A$ equals "Y" 

Line 320 contains the dimension statements. 

Lines 325-465 are used for the input of P$ (troubles sentence), 
the determination of the number of words in that sentence, and the 
display of messages if there are too many words (line 440) or too few 
(line 445). 

Lines 490-540 separate N$ to set F$ equal to the first name of 
the user. 

Lines 550-570 is the time loop (pause). 

Lines 580-590 read the data list and place the words in the X$ 
array. 

Lines 600-780 separate each word in the sentence entered by 
the user so that the individual words can be compared with the 
words in the data list. 

Lines 790-970 compares each word in the sentence with those 
in the data list, X$(N). If no match is located, the program will 
branch to the print statements in lines 930-960. 

Line 980 is a routine for the entry of A$ used by GOSUB 
statements throughout the program. 

Line 990 enables the user to enter another trouble sentence. 

Line 1000 terminates the program if A$ is equal to "NO." 

Lines 1010-1120 direct the program flow to the appropriate 
line depending on which word in the data list matches a word in the 
sentence entered by the user. 

Line 1190 causes a branch to a different set of print statements 
if any of the conditions are met. 

Line 1200 is the beginning of all the print statements, ques- 
tions, and possible solutions. 

Lines 1205-4530 are all the print statements, inputs, and solu- 
tions, depending on the word(s) selected (as they are matched with 
computer's data list) 

Lines 4540-4595 alter words such as him, her, husband, and 
wife according to the contents of W$ 
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Lines 4600-4640 terminate the program if A$ is not equal to 
"Y" or "YES", 

Lines 4700-4870 are extra print statements for use when the 
user becomes contrary or tries to confuse computer. 

Lines 5200-5310 contain the data elements, which are the 
words that are compared to the individual words in the user's 
trouble sentence. 

Lines 5740-5810 redo parts of sentence for the output of YOU 
as opposed to I. 

Lines 5830-5850 changes the contents of R$ to match print 
output. 
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GENERAL STORE 

So you think this is just a simple program to test your addition ? 
Guess again ! Sure, you'll have to be good at arithmetic and you'll 
have to add quickly ! The computer will give you products (two at 
the first) and their prices. Then you'll have to enter the totals of the 
prices. All of this will happen in limited amount of time so, if you 
can't think fast. . .don't try this program ! Note that the IBM version 
of this program is included in Appendix A , and the Apple version in 
Appendix B. 

Sample Run 

GENERAL STORE 

YOUR INSTRUCTIONS ARE SIMPLE AND 

STRAIGHT-FORWARD: I WILL GIVE 

YOU A LIST OF DIFFERENT ITEMS 

AND THEIR PRICES. YOU IN TURN 

WILL ENTER THE TOTAL OF THE 

ITEMS. THAT IS, IF I SAY $2.50 

MILK , THEN I SAY $0.80 BREAD, 

YOU MUST THEN ENTER THE TOTAL 

OF $2.50 + $0.80 ($3.30). ALL 

YOUR ENTRIES WILL BE THROUGH 

INKEY$, DON'T PRESS ENTER AND DON'T ENTER THE 

DOLLAR SIGN. 

PRESS A KEY... 

ENTER ONLY THE NUMBERS AND THE 

DECIMALS. AFTER 10 ITEMS WE WILL 
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MESSAGE 
TOTAL POINTS 



f START ) 



Bta 

STATEMENTS 



SNSTRUCTIONS 



P NUMBER 
OF PLAYERS 





ju=y+i| 



PRINT AMT 
ITEM 
















ENTHY BY 
INKEYS 




| 




K =K + 1 




( STOP J 




Flowchart for General Store. 

TAKE A SHORT BREAK: THEN I WILL 
GIVE YOU 10 MORE. WE WILL QUIT 
ONLY AFTER 30 ITEMS HAVE BEEN 
COMPLETED. YOUR SCORE WILL BE 
DETERMINED BY YOUR TOTAL. IF 
CORRECT, THE TOTAL IS YOUR SCORE. 
IF INCORRECT, YOUR TOTAL WILL BE 
A MINUS OF ALL ENTRIES MISSED. 
I SHOULD ALSO TELL YOU, THAT 
YOU WILL HAVE A TIME LIMIT IN 
WHICH TO ENTER THE TOTAL, SO LAY 
DOWN THE PENCIL AND CALCULATOR. 
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PRESS ANOTHER KEY... 

HOW MANY PLAYERS? 2. 

ENTER 2 PLAYERS FIRST NAMES 

MAX 

MAY 

I WILL SELECT EACH PLAYER IN 

A RANDOM FASHION, THERE WILL 

BE NO SET ORDER OF PLAYERS. 

MAX YOU WILL NOW PLAY. 
PRESS THE ENTER KEY... 

Program Listing 

10 REM PROGRAM TITLE: GENERAL STORE 

20 CLS:CLEAR 500:PRINT TAB(IO); 

30 FRINT"GENERAL STORE ": RS = "NEXT" 

40 RANDOM:DIM N$ ( 15) , 1$ (31 ) , I (31 ) 

50 DIM L(31 ) ,PR<31 ) , TF < 15) : REM INSTRUCTIONS 

60 FRINT"YOUR INSTRUCTIONS ARE SIMPLE AND" 

70 FRINT"STRAIGHT-FORWARD: I WILL GIVE" 

80 PRINT"YOU A LIST OF DIFFERENT ITEMS" 

90 PRINT"AND THEIR PRICES. YOU IN TURN 11 

100 PRXNT"WILL ENTER THE TOTAL COST OF THE" 

110 FRINT"ITEMS, THAT IS, IF I SAY $ 2 . 5 " 

120 FRINT"MILK, THEN I SAY $0.80 BREAD" 

130 PRINT"YOU MUST THEN ENTER THE TOTAL" 

140 FRINT"OF $2.50 + $0.80 ($3„30). ALL" 

150 PRINT"YOUR ENTRIES WILL BE THROUGH" 

160 PRINT" INKEY$ . DON f T PRESS ENTER AND" 

170 PRINT"DON'T ENTER THE DOLLAR SIGN" 

180 PRINT: PRINT"PRESS A KEY.,." 

190 GOSUB 3000:CLS:G$="##,###" 

200 PRINT"ENTER ONLY THE NUMBERS AND THE" 

210 PRINT"DECIMALS. AFTER 10 ITEMS WE WILL" 

220 PRINT"TAKE A SHORT BREAK, THEN I WILL" 

230 PRINT"GIVE YOU 10 MORE. WE WILL QUIT" 

240 FRINT"ONLY AFTER 30 ITEMS HAVE BEEN" 

250 PRINT"COMPLETED. YOUR SCORE WILL BE" 

260 PRINT"DETERMINED BY YOUR TOTAL, IF" 

270 FRINT"CGRRECT THE TOTAL IS YOUR SCORE." 

280 PRINT" IF INCORRECT, YOUR TOTAL WILL BE" 

290 PRINT"A MINUS OF ALL ENTRIES MISSED." 

300 PRINT" I SHOULD ALSO TELL YOU THAT" 

310 PRINT"YOU WILL HAVE A TIME LIMIT IN" 

320 PRINT"WHICH TO ENTER THE TOTAL, SO LAY" 

330 PRINT"DOWN THE PENCIL AND CALCULATOR." 
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340 REM BEGIN 

350 FRINT n FRESS ANOTHER KEY.." 

360 GOSUB 3000 : CLS 

370 INFUT"HOW MANY PLAYERS < 1 - 1 > " ; F 

380 IF F<1 OR F>10 THEN 3 70 

390 PRINT"ENTER";F; "PLAYER'S FIRST NAMES" 

400 REM NAMES 

410 AF=15538:FOR 1=1 TO F 

420 INPUT N$(I) ;N(I)=I :NEXT:N=1 :AA=176 

425 AO=AP+64:IF F= 1 THEN Y=l:N=2:GOTO 470 

430 PRINT"I WILL SELECT EACH FLAYER IN" 

440 PRINT"A RANDOM FASHION. THERE WILL" 

450 FRINT U BE NO SET ORDER OF FLAYERS." 

460 GOSUB 2800 : FRINT:REM PLAYER 

470 IF EE=1 THEN 1530:REM FINAL 

480 Q$=N$ <Y) :TA=0 : JI = Q 

490 PRINT Q$;" YOU WILL NOW PLAY." 

500 PRINT"FRESS THE ENTER KEY..."; 

510 INPUT XS :FRINT 

520 FRINT"HOW FAST IS YOUR ADDITION "; 

530 PRINT Q$ ; " ? ? ? " 

540 REM READ ALL ITEMS / PRICES 

550 FOR Is=l TO 30:READ I $ < I > : L < I > = I : NEXT 

560 FOR 1=1 TO 30:READ PR ( I ) : NEXT : GOTO 2500 

5 70 D^I-l :DD=<D/3> : U= 1 : D$ =" S ##.##": F$ = " $ " 

580 REM SELECT ITEMS RANDOMLY 

590 IF U>DD THEN PRI NT : PR INT : GOTO 1100 

600 X=RND(30) 

610 IF L(X)»0 THEN 600:REM USED 

620 T=X:PR=PR(T) ;T$=I$(T) 

625 IF Ual THEN YU=PR 

630 TA=TA+FR:REM TOTAL AMOUNT/ CURRENT ITEM 

640 TA$=STR$(TA> : REM TOTAL TO STRING 

645 IF U*l THEN GOSUB 2900 

650 IF U=l THEN CLS ELSE IF U>1 THEN 670 

660 PRINT TAB<0>"FRICE" TAB < 2 5 ) " ITEMS " ; 

665 PRINT TABC50) "TOTALS" 

670 PRINT TAB(0) USING D$;PR; 

680 PRINT TAB<25) T$ 

690 IF U<=1 THEN 710 

700 RR=1;REM CONTINUE PRINT / ENTRIES 

710 L<X>=0 :U=U+1 :KK=0 :NE=1 

7 20 IF RROl THEN 580 

725 PRINTSAA,F$ 

730 X$=INKEY$:IF KK<=5 AND X$<>"" THEN 1040 

735 IF X$=" , " THEN 880 

7 40 IF X$ = "" THEN 76 

75 GOTO 80 
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760 KK=KK+1:REM TIME EXPIRED ? 

770 IF KK>=175 THEN W$="":GOTO 1000 

7 60 POKE AF , X 33 : GOTO 73 

80 REM ENTRY 

810 POKE AP, ASC(X$> : TY < NE ) = VAL ( X $ ) 

820 AF=AP+1:REM POKE LOCATION 

830 NEsNE+l:REM NUMBER ENTRY 

830 IF NE=LEN(TA$> THEN 860 

850 GOTO 730 

860 GOTO 910:REM ALL ENTRIES IN 

880 REM DECIMAL 

890 POKE AF,ASC(X$> 

900 TY<NE>=1000:GOTO 820 

910 REM COMPILE ENTRIES 

920 V=NE»1:IF V=9 THEN V=10 

930 FOR 1=1 TO V 

930 IF TY(I)=1000 THEN 970 

950 W$=W$*STR$ (TY( I > > 

960 TY( I >=0 :NEXT: GOTO 990 

970 W$=W$+ H . " 

980 GOTO 9 60 

990 W=VAL(W$ ) :W$=STR$ <W) 
1000 IF W$OTA$ THEN P I =P I + PR : J I = J I + 1 
1005 IF U=3 AND JIO0 THEN P I = P I + YU : J I = J I + 1 
1008 IF PEEK<AP>=133 THEN POKE AF,32 
1010 POKE AP+1 , 32 :W$=" H : AA=AA+63 
1020 AP=AQ: AQ=AQ+63 
103 GOTO 59 0: REM ANOTHER ITEM 
1040 REM SLOW DOWN A LITTLE 
1050 POKE AF,32 
106 GOTO 73 

1100 REM POINTS / PLAYER ADVANCE 
1110 IF FIO0 THEN 1200 
1120 FOR 1=1 TO LEN(TA$> 
1130 IF MID$<TA$,I,1>="." THEN 1150 
1130 K$=K$+MID$ (TA$ , I , 1 > 
1150 NEXT 
1160 K=VAL(K$> 
1170 GOSUB 1330 
1180 TP(Y)=TP<Y)+K 
1190 GOTO 13 20 
1200 REM MISSED ITEM(S) 

1210 TA$=STR$(PI ) :FOR 1=1 TO LEN(TA$) 
1220 IF MID$(TA$ , I , 1 >=" - " THEN 1230 
1230 K$=K$*MID$ <TA$ , I , 1 > 
1230 NEXT:K=VAL(K$ ) : GOSUB 1330 
1250 TP( Y)=TP( Y)-K 

1260 PRINT"YOU HAVE MISSED TOTALS ON" ;JI 
1270 PRINT"ITEMS ";Q$;". THESE ITEMS CAME" 
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1280 FRINT M TO A TOTAL OF «" ; TA $ ; " . YOU ARE" 

1290 FRINT"MINUS THAT NUMBER, YOUR SCORE" 

1300 PRINT"IS NOW: ";USING G$;TP(Y) 

1310 GOTO 1350 

1320 PRINT N YOU HAVE SUCCESSFULLY ENTERED" 

1330 FRINT"ALL TOTALS ";Q$;", YOUR SCORE 

1340 FRINT"IS NOW: ";USING G$;TF(Y) 

135 K = : J 1=0 : PI=Q:TA$="" :K$="" 

1360 U=l :D1=D1+10 : IF Dl=20 THEN R$="LAST" 

13 70 AF= 155 38 : AQ=AF+6 4 : AA=176 :RR=0 : FRINT 
1380 IF Dl >=30 THEN 1500 

1390 FRINT"TAKE A SHORT BREAK, THEN WE'LL" 

1400 FRINT"ATTEMFT THE " ; R $ ; " SET OF ITEMS" 

1410 FOR 1=1 TO 5000 :NEXT:FRINT 

142 GOTO 58 

1430 REM AMOUNT TIMES 10 

1440 IF MID$ <TA$ ,LEN(TA$ >-l , 1 > = *V " THEN 1480 

1450 IF LEN(TA$)=2 OR LEN(TA$)=3 THEN 1470 

1460 RETURN 

1470 K=K*100:GOTO 1460 

1480 K=K*10 

14 90 GOTO 1460 

1500 REM ANOTHER FLAYER 

1510 FRINT: PR INT : RESTORE 

1520 D1=0 :R$="NEXT" : GOTO 460 

1530 REM HIGH POINT 

1535 IF Pal THEN TF=TF < 1 > : GOTO 1720 

1540 MM=0 : VV=1 : N=N- 1 

1550 IF TF(VV) >=TF<VV+1 ) THEN 1590 

1560 TP = TP( VV) :TP(VV)=:TP< VV+1 ) 

1570 TFCVV+1 >=TP:N$=N$ <VV) 

1580 N$ <VV>=N$ (VV+1 ) :N$ ( VV+1 ) =N$ : MM= 1 

1590 IF VV+1>=N THEN 1600:REM FINAL 

1595 Wr=VV+i :GOTO 1550 

1600 REM MM=I -- NOT IN ORDER 

16 10 IF MM=1 THEN 1540 

1650 REM POINTS COMPILED (FINAL) 

1700 REM PRINT RESULTS 

1710 PRINT"ALL HAVE PLAYED " 

1720 FRINT"FRESS A KEY FOR RESULTS ON SCORE" 

1730 GOSUB 3000 

1740 CLS : 1=1 

1750 REM SINGLE PLAYER 

1760 IF P=l THEN 1850 

1770 FRINT"THE TOP WINNER: ";N$(I) 

1780 PRINT"WITH A FINAL POINT SCORE OF: " ; 

1790 FRINT USING G $ ; TP < I > 

1800 FRINT"OTHER PLAYERS AND SCORES:" 

1810 FOR X=I+1 TO F 
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1820 PRINT N$<X); M HAD: ";USING G $ ; TP < X > 

1830 NEXT 

18 40 GOTO 18 80 

1850 PRINT Q$; H YOUR TOTAL (FINAL) SCORE* 

1860 PRINT"FOR GENERAL STORE IS: "; 

1870 PRINT USING G$;TP 

1880 PRINT 

1890 PRINT*'END OF PROGRAM RUN," 

19 00 END 

2500 REM INFLATION / DEFLATION 

2510 FOR 1=1 TO 30 

2520 DE=RND< 10) : DF=CSNG ( DE / 1 ) 

2530 DG=RND<2) 

2540 IF DG=2 THEN 2590 

2550 REM INFLATION 

2560 PR( I )=PR( I )+DF 

2 5 70 NEXT 

25 8 GOTO 57 

2590 REM DEFLATION 

2600 PR( I)=PR(I )-DF 

2610 IF PRCIXaO THEN 2560 

2620 GOTO 2 5 70 

2800 REM RANDOM PLAYER 

2810 IF N>P THEN EE=1:RETURN 

2820 Q=RND(P) 

2830 IF N(Q)=0 THEN 2820 

2840 Y=Q :N(Q)=0 

2850 N=N+1 .RETURN 

2900 REM EXTRA MESSAGE 

29 10 PRINT 

2920 PRINT"ADD ALL ITEMS TOGETHER" 

2930 PRINT"BEFORE INPUTTING AMOUNT." 

2940 IF Dl >=10 THEN 2970 

2950 FOR TL=1 TO 2800:NEXT 

2960 CLS :RETURN 

2970 PRINT"START WITH PREVIOUS TOTAL." 

2980 GOTO 2950 

3000 REM INKEY$ 

3010 X$=INKEY$ 

3020 IF X$=" " THEN 30 10 

3 30 RETURN 

4000 REM DATA / PRICE » ITEM COMBINED 

4010 DATA MILK, BREAD, MEAT 

4020 DATA ME AT , MEAT , F I SH 

40 30 DATA CANDY , CANDY , CANDY 

4040 DATA VEGETABLES , VEGETABLES 

4050 DATA POULTRY , POULTRY 

4060 DATA LETTUCE , ONI ONS 
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4070 DATA SF INACH , C I GARETTES 

4080 DATA CIGARS, BACON 

4090 DATA TABLETS (PAPER), PENS 

4100 DATA BATTERIES, BATTERIES 

4110 DATA FURNITURE POLISH 

4120 DATA CARPET CLEANER 

4 130 DATA HAND SOAP , HAND SOAP 

4140 DATA CRACKERS , MEATS 

4150 DATA SODAS (CASE) 

4160 REM PRICES OF ITEMS 

4170 DATA 2 . 30 ,0 , 89 , 1 , 98 ,3 . 35 ,5 . 50 ,3 . 65 

4180 DATA . 35 , 2 . 05 , , 54 , . 39 , . 45 , 3. 44 

4190 DATA 1.99,0.59,1.01,0.79,7.05,5.74 

4200 DATA 4 „ 6 6 , 1 . 2 3 , 2 . 4 4 , 2 . 6 6 , . 98 , 1 . 9 7 

42 10 DATA 2.41,0.99,0.99,1.32,8.99,4.32 

Variables and Strings 

G$ - Used for the printing of scores 

P - Number of players (1-10) 

AP - Poke location for printing 

N$(N) - First names of players 

N - Number of players, counter 

AA - Print @ locations 

AQ - Same as AP, but for advancing to a new area 

Q$ - Selected player 

TA - Total amount , up to and including current item 

JI - Counter for incorrect price entry 

I$(N) - All items 

PR(N) - Price of above items 

D - Amount of I after data is read 

DD - Total items 

U - Counter for items 

D$ - For print of prices 

X - Random selection of an item 

L(X) - Delete the item X , after selection 

T - Same as variable X (random) 

PR - Set to the price of the current item , PR(T) 

T$ - Same as the I$(T) item, used in conjunction with JI 

YU - Price of the first item in each set 

TA$ - STR$ of amount TA 

KK - Used for timing responses 

NE - Used for TY (subscripted) for each numeral entry 

TY(N) - Explained in the line above 

W$ - STR$ content of the TY(I) cost entry 
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PI - For incorrect price entry 
K^ - Total cost of 10 items 
K - VALue of K$, above 
TP(Y) - Total score for current player 

VV - Used for sorting high to low score list (if more than one has 
played) 

MM - 0/1, true/false variable. If MM= 1, the list of players ar- 
ranged according to their scores is not correct in order. Likewise if 
MM = the list is correct 

DE - Selects a random amount from 1-10 for inflation or deflation of 
current prices 

DF - Insures that the amount above will be a "cent" increase of 
decrease 

DG - Determines whether the current price in the list will be 
inflated or deflated 
Q - Randomly selected player 

Explanation of the Program Lines 

Lines 40-50 dimension the strings and variables. 

Lines 60-350 display the instructions for play. 

Line 360 contains a GOSUB to line 3000, which contains an 
INKEY$ routine that line 360 uses to exit the instructions. This 
routine is used throughout the program 

Lines 370-420 let the user enter the number of players and 
their first names. 

Lines 410 , 420 , and 425 also initialize some variables for print@ 
(AP) and poke (AP and AQ) locations. 

Lines 430-460 print a message, and then select one player 
randomly using a GOSUB to lines 2800-2850. If only one person is 
playing, P =1 , and line 425 causes the random selection of a player to 
be skipped. 

Line 470 if EE=1 , all players have had their turn. The program 
will branch to the final messages beginning at line 1530. 

Line 480 sets the contents of Q$ to the name of the player 
selected, N$(Y). The variables TA and JI are set or reset to for 
totaling and scoring purposes. 

Lines 490-530 are print messages for the current player. 

Lines 540-560 read all data items and prices. The subscripted 
variable L(I) is used to delete a particular item after it has been 
used. After all items I$(I) and prices PR(I) are read , the program 
will branch to lines 2500-2620. These lines are used for inflation or 
deflation of the 30 prices. This will insure that the user cannot 

100 



memorize any price because each will change with each player or 
each program run. Line 2520 randomly selects a number from 1-10 
(DE). This number is then divided by 10 and set to a cent amount, 
DF = C(SNG(DE/10). The CSNG simply insures, that DF is a 
single-precision number. Line 2530, where DG = RND(2), will de- 
termine whether this amount is to be used to increase or decrease 
the current price. If DG is equal to 2, the current amount will be 
decreased by DF (lines 2590-2620). If the amount of PR(I) is less 
than or equal to (zero), the program will branch back and use DF to 
increase PR(I) in line 2560. The current price will always be a 
positive amount, even if it's only one penny. 

Line 570 sets more variables and strings : DD for the total 
number of items (D) divided by 3 ; (the program presents 3 sets of 10 
items) U, a counter for the items ; and D$ and F$ for print statements 
of prices. 

Lines 580-610 select one item at random if U is not greater than 
DD (line 590) and the item has not been omitted (line 610). 

Lines ^0-640 select an item and the total price of the item 



selected. 

Lines 645-650 are used primarily for print statements if U is 
equal to one (line 660 and 665), 

Line 670-680 print the price and the item selected. 

Lines 690-700 insure that two items are selected if U<=1, so 
that the user will have a total to enter. 

Line 710 deletes the selected item, increases the item counter, 
U, sets the timer counter, KK, and sets variable NE to 1 for the 
contents of key entries. 

Line 720 branches back to line 580 if RR is not equal to 1, as 
explained in lines 690 and 700 above. 

Line 725 prints the dollar sign at AA, so the user will know the 
timing has begun. 

Lines 730-770 compose the INKEY$ routine for user entries. 
The variable KK is increased by 1 if no key closure is detected. The 
argument at line 730, if KK< = 5 and X$< >"", will insure that the 
beginning of a new entry is cleared (lines 1040-1060) in case a key is 
closed when KK>=175. This way, the amount will not be carried 
over to the next item. If the decimal key is pressed (line 735), the 
program will branch to line 880; that ASCII value will be poked onto 
the video, and that part of the price entered will be equal to 1000, 
TY(NE). If a numeral key is pressed , the program will branch to line 
800. That numeral will be poked at AP and TY(NE) will be equal to 
the value amount of X$. With this function and the above the poke 
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location is increased by 1 and the variable NE is also increased by 1. 
Line 840 tests the value of NE. If it is equal to LEN(TA$) , the 
required number of keys have been pressed , and the program 
branches to line 910. 

Line 780 pokes CHR$(143), a graphic block, at the current 
location of the price entry. If no numeral or decimal is pressed, lines 
910-980 will compile all the keys closed, and place them in a string 
(W$) along with the decimal (line 940), if TY(I)=1000. 

Line 990 sets W to the VALue of W$. W$ is then changed to the 
STR$ amount of W. 

Line 1000 increases the variable PI to PR (the price of the 
item) if W$ is not equal to TA$. JI will then be increased by 1. 

Line 1005 is used to include the price of the first item in the 
current set (YU), if the total entered to that point is incorrect and 
U=3andJI< > 0. 

Line 1008 clears the cursor block (143) from the current line 
before advancing to the next item. 

Line 1010 clears the contents of W$ (for another item) , ad- 
vances the print @ area by 64 (AP=AQ), and increases AQ by 64 for 
the next poke location. 

Lines 1020-1030 start the process all over by going back to line 
590 to select another item. If the condition is met at line 590 (10 
items have been completed) , the program will branch to line 1100. 

Line 1110 checks the amount of PL If it is not equal to (zero) , 
the program will branch to the incorrect entries routine. 

Lines 1120-1190 are used for correct entries. TA$ is torn apart 
and placed in another string , K$. If the decimal is encountered (line 
1130) the program will branch to the next statement in line 1150. In 
line 1160 K will assssume the amount of K$, through the VAL func- 
tion. 

Line 1170 contains a GOSUB to line 1400, which will again 
check the contents of TA$ (lines 1440 and 1450). If either condition 
is met, the variable K will be multiplied by the appropriate amount , 
for the addition of trailing zeros. 

Line 1180 increases the total points , TP(Y) , by the value for 
each player. 

Line 1190 then branches to line 1320 as explained below. 

Lines 1200-1250 are used for missed items. They function in 
the same manner as lines 1120-1190, but the value of each item 
missed is subtracted from the player's total. The amount returned 
will be a negative number. 

Lines 1260-1300 are the print messages displayed when items 
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have been missed. The number of incorrect items 01) , the total 
price, and the player's current score are displayed. 

Lines 1320-1340 are the print messages displayed when no 
items have been missed. The player's score is displayed. Note that 
all items must have been entered correctly or the player will 
receive a negative score, even if only one was missed. 

Lines 1350-1420 begin the cycle again for the next 10 items, if 
the condition is not met at line 1380. Variables are cleared and 
strings are set to null. 

Lines 1430-1490 are explained above. 

Lines 1500-1520 restore the data list for another reading be- 
fore the selection of the next player, if any remain. 

Lines 1530-1610 sort the scores, along with the appropriate 
players' names, from high to low if there is more than one player 
(line 1535). If MM is equal to 1 in line 1600 and 1610, the list is not 
perfect and the sort will begin again. Otherwise the program will 
continue to line 1650. 

Lines 1650-1900 print all the players' names and their ac- 
cumulated scores and terminate the program. 

Lines 4000-4210 contain the data items and their correspond- 
ing prices. 
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RESPECT YOUR COMPUTER 

Do you have respect for your computer? Do you believe that it is 
telling you the truth all of the time PjYou're fi for a surprise then ! 
This is an excellent program to try on that person or friend who 
thinks he or she is always right or who feels they never make a 
wrong guess. Keep all heavy objects away'from your computer 
when running this program; your friends might be tempted to bash 
the CPU in! 



Sample Run 

NATURALLY YOU SHOULD HAVE SOME 
RESPECT FOR YOUR COMPUTER, EVEN 
THOUGH IT IS ONLY A MACHINE. 
THIS MACHINE WILL NOW TEST YOUR 
PATIENCE, TO SEE JUST HOW MUCH 
RESPECT YOU DO HAVE FOR THIS 
MACHINE. YOU SEE, THIS 
IS ONE GAME THAT YOUR COMPUTER 
WILL STAKE ITS CIRCUITS ON! 
YOU CANNOT, AND WILL NOT 
BEAT IT !!! 
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PRESS ENTER...PLEASE? 

IF YOU ARE READY, WE WILL NOW 
BEGIN, I HAVE SELECTED A NUMBER 
BETWEEN 1 AND 10, TELL ME 
THE NUMBER7 4 
YOUR NUMBER: 4 
SORRY. 

NUMBERS GUESSED: 4 

GUESS AGAIN... 

THE NUMBER?! 
YOUR NUMBER: 1 
SORRY. 

NUMBERS GUESSED: 4 1 

GUESS AGAIN... 

THE NUMBER? 9 
YOUR NUMBER: 9 
SORRY. 

NUMBERS GUESSED : 4 1 9 
GUESS AGAIN... 

THE NUMBER? 3 
YOUR NUMBER: 3 
SORRY. 

NUMBERS GUESSED: 4 19 3 

GUESS AGAIN... 

THE NUMBER? 10 
YOUR NUMBER: 10 
SORRY. 

NUMBERS GUESSED : 4 1 9 3 10 
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GUESS AGAIN... 

THE NUMBER?^ 
YOUR NUMBER: 8 
SORRY. 

NUMBERS GUESSED: 4 19 3 10 8 

GUESS AGAIN... 

THE NUMBER?! 
YOUR NUMBER: 7 
SORRY. 

NUMBERS GUESSED: 4 19 3 10 8 7 

GUESS AGAIN... 

THE NUMBER? 6. 
YOUR NUMBER: 6 
SORRY. 

NUMBERS GUESSED: 4 19 3 10 8 7 6 

GUESS AGAIN... 

THE NUMBER? 2 
YOUR NUMBER: 2 
SORRY. 

NUMBERS GUESSED: 4193 10 8762 

GUESS AGAIN... 

NEVERMIND... 

THE NUMBER I HAD SELECTED WAS: 5 

YOUR GUESSES WERE: 41 93 10 8762 

LET'S TRY AGAIN... 

OF THE 9 GUESSES YOU MADE, 
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NONE OF THEM MATCHED THE 
NUMBER I HAD SELECTED 



STOP 

This is not a complete run. 



( START ) 

K— - 



PRINT 
INSTRUCTIONS 



± 




PRINT COMPUTER 
NUMBER 





f STOP j 



Flowchart for Respect Your Computer* 
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Program Listing 



100 REM PROGRAM TITLE; RESPECT YOUR COMPUTER 

150 CLS 

200 RANDOM. F= 1 : Q= 1 : X=10 : IF WW= 1 THEN 900 

250 PRINT n NATURALLY YOU SHOULD HAVE SOME" 

300 PRINT M RESPECT FOR YOUR COMPUTER, EVEN" 

350 FRINT"THOUGH IT IS ONLY A MACHINE." 

400 PRINT"THIS MACHINE WILL NOW TEST YOUR" 

450 PRINT"PATIENCE TO SEE JUST HOW MUCH" 

500 PRINT"RESPECT YOU DO HAVE FOR THIS" 

550 PRINT"MACHINE . YOU SEE, THIS" 

600 PRINT" IS ONE GAME THAT YOUR COMPUTER" 

650 FRINT"WILL STAKE ITS CIRCUITS ON" 

700 PRINT"YOU CANNOT, AND WILL NOT" 

750 PRINT"BEAT IT ! M " 

80 PRINT 

850 INPUT"PRESS ENTER. . PLEASE" ; XX 

900 CLS 

950 FRINT"IF YOU ARE READY, WE WILL NOW" 

1000 PRINT M BECIN. I HAVE SELECTED A NUMBER" 

10 50 PR I NT" BETWEEN 1 AND" ; X ; " TELL ME" 

1100 INFUT"THE NUMBER" ;N 

1150 IF N<1 OR N>X THEN 1100 

1200 PRINT"YOUR NUMBER: ";N 

1250 FOR 1=1 TO 800 :NEXT 

13 00 PRINT CHR$ (83) ;CHR$(79) ;CHR$ (82 ) ; 
1350 PRINT CHR5 (82 ) ; CHR$ ( 89 ) ; CHR5 ( 46 ) 

14 00 PRINT 
1450 A(P)=N 

1500 PRINT"NUMBERS GUESSED:"; 

1550 FOR 1=1 TO F:PRINT A(I);:NEXT 

1600 FRINT:P=F+1 

1650 FRINT"GUESS AGAIN " 

1700 IF P>=X THEN 1900 

1800 PRINT 

1850 GOTO 1100 

1900 PRINT 

19 50 PR I NT"NE VERM I ND " 

2000 PRINT"THE NUMBER I HAD SELECTED WAS:"; 

2050 A=X 

2100 FOR 1=1 TO P-i 

2150 IF AOA(I) THEN NEXT:GOTO 2250 

2200 A = A-1 ; GOTO 2100 

2250 REM PRINT NUMBER 

2300 PRINT A: PRINT 

2350 PRINT"YOUR GUESSES WERE:", 

2400 FOR 1=1 TO P-l 
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2450 PRINT A( I ) ; :NEXT 

25 PRINT 

2550 Q = Q+1 :TF=TF+F~1 

2600 IF Q>=4 T&EN 3000 

2650 PRINT H LET'S TRY " ; 

2700 IF Q=3 PRINT H ONCE MORE .... u : GOTO 2800 

2750 PRINT"AGAIN. . . " 

2800 FOR 1=1 TO 1200:NEXT 

2850 FRINT:F=i 

2 900 GOTO 85 
30 00 PRINT 

3050 PRINT"OF THE M ; TP ; " GUESSES YOU MADE," 

3100 PRINT"NONE OF THEM MATCHED THE" 

3150 FRINT"NUMBER I HAD SELECTED " 

32 00 FOR 1=1 TO 2 : NE XT : Z=X 

3250 REM MORE ? 

3300 IF X=10 THEN X=5:GOTO 3450 

3350 IF X=5 THEN X=3:GOTO 3450 

3 40 A=G : GOTO 38 50 

3450 PRINT; P=l ;Q=1 : IF X = 3 GOTO 3600 

3500 FRINT"TO TAKE THIS A STEP FURTHER," 

3550 PRINT"LET'S TRY SOMETHING DIFFERENT." 

3600 PRINT"INSTEAD OF 1 AND" ; Z ; " I WILL" 

3650 FRINT"SELECT BETWEEN 1 AND" j X; "AND" 

37 00 PR I NT" GIVE YOU" ; X- 1 ; "TR I ES . . . " 
3750 PRINT 

38 00 GOTO 85 
38 5 PRINT 

3900 FRINT"THIS IS REALLY HARD TO BELIEVE. 

3 9 50 PR INT" YOU MADE" ; TP ; "GUESSES , I GAVE" 

4000 PRINT"YOU THREE DIFFERENT BREAKS AND" 

4050 FRINT"YOU MATCHED" ; A ;" OF THE NUMBERS" 

4100 PRINT"THAT I SELECTED ! M " 

4150 FOR 1=1 TO 3000:NEXT 

4200 CLS: PRINT CHR$ (23) 

4250 FRINT"YOU CAN'T WIN " 

4300 PRINT: PRINT"TURKEY ! ! " 

4350 FOR 1=1 TO 1 5 : NE XT : CLS 

4400 PRINT"READY TO TRY AGAIN, YOU'LL" 

4450 PRINT M GET THE SAME BREAKS AS BEFORE"; 

4500 INPUT X$ 

4550 IF X$="N" OR X$="NO" THEN 4650 

4600 WW=1 : GOTO 100 

4650 CLS;PRINT CHR$(23) 

4700 PRINT"CHICKEN > , " 

4750 GOTO 4750 



109 



Variables and Strings 

P - Attempts (guesses) 

X - Attempts per run 

N - Number input as guess 

A(I) - Subscripted variable for guesses 

A - Computer selected number 

TP - Total guesses 

Z - Value of X (current) for message 

WW - For skipping the instructions (playing more than once) 

Explanation of the Program Lines 

Line 200 initializes three variables and skips the instructions if 
WW is equal to 1 (more than one run). 

Lines 250-850 print the general instructions. 

Lines 900-1100 begin the rounds and accept user's guess. 

Line 1150 tests the value of N to make sure it is within the 
specified limits. 

Lines 1200-1550 print several messages and the number 
guessed. It then places each number in a subscript A(P) = N for 
further reference. 

Lines 1600-1850 cause a return to line 1100 for another guess if 
P is not greater than or equal to X. 

Lines 1900-2450 print the number selected by the computer 
and all of the numbers the user selected. 

Lines 2500-2900 begin it all again if Q is less than or equal to 3 
and the user has not hit the computer with a hammer. 

Lines 3000-3800 print the user's total number of guesses, 
change the value of X to a lower number, and then start the routine 
again. If X = 3, the program branches to line 3850. 

Lines 3850-4750 print a closing message and ask the user if he 
or she would like to try again. 
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LOVE ONE ANOTHER 

Having problems with your spouse, girlfriend, or boyfriend? Don't 
take it to court, take it to your computer ! If you're having difficulties 
expressing your complaint , you can register it with this program. 
Then your wife, husband, girlfriend, or boyfriend can register his or 
her complaints. The final outcome? Discussions of problems you 
thought didn't exist ! 

Sample Run 

LOVE ONE ANOTHER 

ARE YOU MARRIED? YES 

WHAT IS YOUR SPOUSE'S 

FIRST NAME, PLEASE? MARGRET 

SO YOU ARE HAVING A FEW PROBLEMS 

AND NEED YOUR COMPUTER'S ASSISTANCE? 

YOU WILL GO THROUGH THE PROGRAM 

FIRST; THEN MARGRET CAN GO THROUGH 

IT. I WILL THEN GO THROUGH EACH 

LIST AND PICK OUT THE MAJOR 

ISSUES. IF AT ALL POSSIBLE, KEEP 

COMPLAINTS TO THREE OR FEWER 

WORDS. THIS WILL KEEP THINGS 

EASIER TO MANAGE. 



111 



BEGIN? 

YOUR FIRST NAME? SAM 
SAM YOU WILL HAVE THE 
OPPORTUNITY TO REGISTER 
UP TO 10 COMPLAINTS. IF YOU 
DO NOT HAVE 10, JUST PRESS 
'ENTER' FOR A COMPLAINT. 

LET'S HAVE COMPLAINT NUMBER 1 ? RELATIVES 
NUMBER 2 ? COMMUNICATION 
NUMBER 3 ? SMOKING 
NUMBER 4 ?GOING PLACES 



NUMBER 5 ? RELATIVES 
NUMBER 6 ? * 

WE WILL NOW GIVE EACH 
COMPLAINT A PRIORITY NUMBER. 
THESE NUMBERS WILL RANGE 
FROM 1 (LEAST SIGNIFICANT) 
TO 10 (MOST SIGNIFICANT). NO 
FRACTIONS, PLEASE. 

* 
COMPLAINT NUMBER 1 : 
RELATIVES.. .PRIORITY? 8. 
COMPLAINT NUMBER I 
COMMUNICATION...PRIORITY? 10 
COMPLAINT NUMBER 3 : 
SMOKING.. .PRIORITY? 6. 
COMPLAINT NUMBER 4 : 
GOING PLACES.. .PRIORITY? 7. 
COMPLAINT NUMBER 5: 
RELATIVES.. .PRIORITY? 8. 

PROCESSING DATA- 
ALL COMPLAINTS HAVE BEEN 
PROCESSED AND PLACED IN 
PRIORITY ORDER, SAM. 

IF YOU WILL CALL MARGRET TO 
THE COMPUTER, I WILL ACCEPT 
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THE 'OTHER SIDE' OF THE 

COIN 

MARGRET PRESS ENTER? 
MARGRET, SAM HAS ENTERED 5 
COMPLAINTS. I WILL NOW RECEIVE 
YOUR VERSION OF COMPLAINTS, AND 
THEN COMPARE THE TWO SETS 
AND RETURN MY FINDINGS... 

MARGRET YOU WILL HAVE THE 
OPPORTUNITY TO REGISTER UP 
TO 10 COMPLAINTS, IF YOU 
DO NOT HAVE 10, JUST PRESS 
'ENTER' FOR A COMPLAINT. 

LETS HAVE COMPLAINT NUMBER 1 7 RELATIONS 

NUMBER 2? 

WE WILL NOW GIVE EACH 
COMPLAINT A PRIORITY NUMBER. 
THESE NUMBERS WILL RANGE 
FROM 1 (LEAST SIGNIFICANT) 
TO 10 (MOST SIGNIFICANT). NO 
FRACTIONS, PLEASE. 

COMPLAINT NUMBER 1 1 
RELATIONS... 

PRIORITY? 10 

PROCESSING DATA... 

ALL COMPLAINTS HAVE BEEN 
PROCESSED AND PLACED IN 
PRIORITY ORDER MARGRET. 
SAM HAS MORE 

COMPLAINTS, AS YOU PROBABLY 
SEE IN THE PRINTOUT, MARGRET. 
BUT THAT ISN'T THE ISSUE. 
WHAT IS IMPORTANT ARE THE 
MAJOR COMPLAINTS: 
SAM'S IS: COMMUNICATION 
MARGRET'S IS: RELATIONS 
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( START ) 




f STOP ) 



Flowchart for Love One Another* 
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DISCUSS THIS PROBLEM BETWEEN 
YOURSELVES NOW, THEN PRESS ENTER? 

MARGRET HAS NO MORE COMPLAINTS. 

SAM'S OTHER COMPLAINTS ARE: 

RELATIVES 

DISCUSS THIS PROBLEM BETWEEN 

YOUSELVES NOW, THEN PRESS ENTER? 

MARGRET HAS NO MORE COMPLAINTS. 
SAM'S OTHER COMPLAINTS ARE: 
GOING PLACES 



STOP 

This is not a complete run. In between the discussions of the 
complaints, each is placed on a chart for viewing. 

Program Listing 

010 REM PROGRAM TITLE: LOVE ONE ANOTHER 

20 CLEAR 1000:CLS 

30 PRINT"LOVE ONE ANOTHER" : PR I NT 

40 INPUT"ARE YOU MARRIED" ; AS 

50 IF LEFTS (AS , i > = "Y" THEN 120 

60 FRINT"ARE YOU CURRENTLY DATING A" 

70 INFUT"GIRLFRIEND OR BOYFR I END " ; A $ 

80 IF LEFTS (AS , 1 ^"Y" THEN 160 

90 FRINT"WHY ARE YOU RUNNING THIS" 

100 FRINT"FROGRAM . DINGY M ! " 

110 GOTO 1840 

120 FRINT"WHAT IS YOUR SPOUSE'S" 

130 PRINT"FIRST NAME, PLEASE"; 

1 40 INPUT N$ 

150 FRINT@0 , CHRS ( 30) ; : GOTO 180 

160 PRINT"VHAT IS YOUR GIRLFRIEND OR" 

170 PRINT-'BOYFRIEND' S FIRST NAME";;GOTO 140 

180 PRINT"SO YOU ARE HAVING A FEW PROBLEMS" 

190 FRINT"AND NEED YOUR COMPUTER'S ASSISTANCE ." 

200 PRINT"YOU WILL GO THROUGH THE PROGRAM" 

210 FRINT"FIRST, THEN ";N$," CAN GO THROUGH" 

220 PRINT" IT. I WILL THEN GO THROUGH EACH" 

230 PRINT"LIST AND PICK OUT THE MAJOR" 

240 FRINT"ISSUES. IF AT ALL POSSIBLE, KEEP" 

250 PRINT"COMPLAINTS TO LESS THAN FOUR" 
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260 FRINT"WQRDS THIS WILL KEEP THINGS" 

270 FRINT n EASIER TO MANAGE," 

280 PRINT 

29 PRINT 

300 INPUT n BEGIN" ; A$ 

31 CLS ; DIM C$ ( 1 1 ) , P( 1 1 ) 

320 INFUT"YOUR FIRST NAME" ;NN$ 

330 PRINT NN$;" YOU WILL HAVE THE OPPORTUNITY" 

340 PRINT H TO REGISTER UP TO TEN COMPL A I NTS, I F YOU* 

350 PRINT"DO NOT HAVE 10, JUST PRESS" 

360 PRINT" * ENTER* FOR A COMPLAINT," 

370 PRINT 

380 C=l 

390 PRINT"LET'S HAVE COMPLAINT NUMBER" ;C; 

400 IF C>=2 PRINT"NUMBER "jC; 

410 INPUT C5(C):GOTO 12 20 

420 IF CSCOs"" THEN 470 

430 REM STEP COUNTER 

440 C=C+1 

450 IF Call THEN 470 

4 60 GOTO 400 
470 I=C-1 

480 IF 1=0 THEN 370 

490 CLS 

500 PRINT"VE WILL NOW GIVE EACH" 

510 PRINT'XOMFLAINT A PRIORITY NUMBER." 

520 PRINT"THESE NUMBERS WILL RANGE" 

530 PRINT"FROM 1 (LEAST SIGNIFICANT)" 

540 PRINT"TO 10 (MOST SIGNIFICANT), NO" 

5 50 PR INT" FRACTIONS, PLEASE , " 
56 PRINT 

570 C=l 

580 PRINT"COMPLAINT NUMBER" ; C ;": " 

590 PRINT C$ (C) ;"..." ; 

600 INPUT "PRIORITY" ;F<C) 

610 IF PCCXl OR P(C)>10 THEN 630 ELSE C = C+1 

620 IF C> I THEN 650 

630 CLS 

640 GOTO 58 

650 REM ARRANGE AS PER PRIORITY 

655 PRINT"PROCESSING DATA . .. " 

660 C*l : X=0 

670 IF P(C)>=P(C+1) THEN 710 

680 F=P<C);F(C)=F(C+1):F(C+1)=P 

690 C$=C5(C):C$(C)=C$(C+1);CS(C+1)=C$ 

700 X=l 

7 10 C = C + 1 

720 IF OI THEN 740 
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730 GOTO 670 

740 IF X*l THEN 660;REM ORDER AGAIN 

750 REN IN ORDER 

760 FRINT"ALL -COMPLAINTS HAVE BEEN" 

770 FRINT"FROCESSED AND PLACED IN" 

780 PRINT"FRIORITY ORDER, ";NNS;V" 

790 IF WV«1 THEN 1010 

8 00 WW=1 
810 PRINT 

820 PRINT"IF YOU WILL CALL ";N$;" TO" 

830 FRINT"THE COMPUTER, I WILL ACCEPT" 

840 FRINT"THE 'OTHER SIDE* OF THE" 

850 PRINT"COIN " 

860 PRINT N$ ; : INPUT" PRESS ENTER" ;X 

870 CLS 

880 PRINT N$;", ";NN$;" HAS ENTERED"; I 

890 PRINT"COMPLAINTS, I WILL NOW RECEIVE' 

900 FRINT"YOUR VERSION OF COMPLAINTS," 

9 10 FRINT M THEN COMPARE THE TWO SETS" 
920 PRINT U AND RETURN MY FINDINGS,.," 
930 REM TRANSFER DATA 

940 FOR Wsl TO 1 

950 W$ <W)=C$ <W> : C$ <W>="" 

960 W(W)=P(W) : P(W)=0 

970 NEXT 

980 X$=NH$ :NN#=NS :F*I 

9 90 PRINT 

1000 GOTO 330 

1010 REM ALL COMPLAINTS IN 

1020 PRINT 

1030 INPUT" ENTER PLEASE" ; X 

1040 CLS 

1050 PRINT TABC10) X$; TABC45) N$ 

1060 PRINT TAB(O) "COMPLAINT" ; 

1070 PRINT TABC 18) "PRIORITY"; 

1080 PRINT TABC35) "COMPLAINT" ; 

1090 PRINT TAB<52) "PRIORITY" 

1100 FOR Q=0 TO 59 :PRINT"X"; :NEXT: PRINT 

1110 G= I : I«l 

1120 PRINT TAB(0) W$ < I ) ; TABC21) W< I ) ; 

1130 IF I >G THEN 1 150 

1140 PRINT TABC35) C$(I); TAB(56) P(I) 

1150 1=1+1 

1160 IF K=F THEN 1200 

1170 IF I>F AND I<=G THEN 1130 

1180 REM BRANCH TO RESULTS 

1190 GOTO 1300 

1200 IF I>G THEN FRINT:GOTO 1120 
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1210 
12 2 
1230 
1240 
1250 
1260 
1270 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1 490 
1500 
1510 
1520 
1 530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
16 10 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 



AS' 



GOTO 1120 

HEM L ETTER COUNT ( L ENGTH > 

IF LEN(C$(C))>=21 THEN 1250 

GOTO 42 

PRINT"YOU NEED TO SHORTEN" 

PRINT"THE COMPLAINT A LITTLE." 

GOTO 4 00 

REM RESULTS 

PRINT: INFUT"KEY ENTER WHEN READY";X 

CLS 

IF F>G THEN PRINT X $ ; : R= 1 ; GOTO 1360 

IF F=G THEN 1410 

PRINT N$ ; 

PRINT" HAS MORE" 

PRINT"CQMFLAINTS, AS YOU PROBABLY" 

PRINT M SEE IN THE PRINTOUT "; 

IF R=l PRINT N$;". M :GOTO 1440 

PRINT X$ ; " . " : GOTO 1440 

PRINT X$;" YOU AND " ;N$;" HAD AN" 

PRINT"EQUAL AMOUNT OF COMPLAINTS; 

PRINT"YOU PROBABLY KNOW BY NOW." 

PRINT; 1=1 

PRINT"BUT THAT ISN'T THE ISSUE," 

PRINT"WHAT IS IMPORTANT ARE THE" 

FRINT"MAJOR COMPLAINTS:" 

PRINT X$ ; " 'S IS: " ;V$ ( I ) 

PRINT N$ ; " ' S IS : " ; C $ < I ) 

PRINT 

PRINT"DISCUSS THIS PROBLEM BETWEEN" 

PRINT"YOURSELVES NOW; THEN PRESS ENTER" 

INPUT X : CLS 

1 = 1 + 1 

IF I>F THEN 1600 

IF I >G THEN 1630 

PRINT: IF JJ=1 THEN 1650 

PRINT"THE NEXT AREA OF COMPLAINTS:" 

GOTO 14 80 

PRINT X$ ; " HAS NO MORE 

IF I >G THEN 1630 

GOTO 16 50 

HAS HO MORE 



COMPLAINTS. 



PRINT N$ ; 

GOTO 16 90 

PRINT N$ ; 

JJ=1 

PRINT CS < I ) 

GOTO 150 

IF I >F THEN 1750 

PRINT XS ; " • S OTHER 



COMPLAINTS, 



S OTHER COMPLAINTS ARE 



COMPLAINTS ARE 
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1710 JJ=2 

17 20 PRINT W$ ( I ) 

17 30 GOTO 15 00 
1750 REM FINISH 
1760 PRINT 

1770 PRINT"IF YOU DID NOT SOLVE ALL" 

1780 PRINT n OF YOUR DISAGREEMENTS RUN" 

1790 PRINT"THE PROGRAM AGAIN." 

18 00 PRINT 

1810 FRINT"REMEMBER, WHEN YOU HAVE PROBLEMS" 

1820 PRINT M DON'T TAKE IT TO COURT..." 

1830 PRINT"TAKE IT TO YOUR COMPUTER." 

18 40 PRINT 

1850 PRINT"END OF PROGRAM," 

1860 END 

Variables and Strings 

A$ - General string input 

N$ - First name of spouse, girlfriend, or boyfriend 

C$(I) - Subscripted, for up to 10 complaints 

P(I) - Subscripted, for up to 10 priority numbers 

C - Counter, number of complaints 

I - Total of variable C minus 1 

C$ and X - Used for placing complaints in order of priority 

WW - Will be equal to 1 when both parties have entered complaints 

NN$ - Current user (entering data) 

W$(I) and W(I) - Take on the contents of C$(I) and P(I) before the 

second user enters data 
X$ - Contents of NN$ (first name) 
F - Value of I (total, first users entries) 
G - Value of I (total, second users entries) 
R - For correct message output 
JJ - Correct message output 

Explanation of the Program Lines 

Line 20 clears 1000 bytes of memory for string storage. 

Lines 40-170 ask the first user for the first name of his or her 
spouse, girlfriend, or boyfriend. If the questions are not applicable, 
the program is terminated. 

Lines 180-310 display the general instructions. 

Lines 320-460 lets the current user input up to 10 complaints. 

Line 410 sends program control to line 1220, which tests the 
length of each complaint. This insures that the printout (chart) will 
be kept as neat and readable as possible. 
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Lines 470-480 sets the value of I to C-l. If 1= (zero), the 
program will loop back to line 370, the beginning of the complaint 
entries. 

Lines 490-640 allow the user to input priority values for each 
complaint entered. 

Lines 650-780 rearrange the complaints according to their 
priority numbers, so that the complaints are arranged from highest 
priority to lowest priority when printed. 

Lines 790-1000 allow the users partner to register his or her 
complaints. Lines 930-980 transfer the current data to alternate 
strings and variables, so the information will not be lost when the 
second person enters his or her complaints. Line 1000 sends pro- 
gram control back to line 330 for the entry of the new complaints. 

Lines 1010-1190 display each user's complaints and priorities 
in order from high (most important) to low (least important). 

Lines 1310-1440 display generalized messages for each user. 

Lines 1450-1730 display each user's complaints one at a time, 
and allow them to discuss each one before continuing. 

Lines 1750-1860 display the final message and end the pro- 
gram. 
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I HAVE FOUND THAT 

YOU WOULD BE 

MOST COMPATIBLE 

WITH THE GOLDFISH 

YOU NOW OWN! 




DATE SERVICE 

Been having problems finding the right person to date? Have no 
fear; your computer will now try and rescue you ! Naturally, you and 
up to 9 others (of the opposite sex) will answer all necessary 
questions. After this, the computer will compile all data collected 
and tell you who you would be most compatible with. Keep in mind 
that this is only a simulation or game. The computer has no way of 
judging the final outcome of a person's thought pattern. 

Sample Run 

**DATE SERVICE** 

OPERATING INSTRUCTIONS? YES 

BEEN HAVING PROBLEMS FINDING 
THE RIGHT PERSON TO DATE? 
HAVE NO FEAR - COMPUTER DATE 
SERVICE IS HERE !! 
NATURALLY, YOU'LL NEED TO INPUT 
REQUIRED DATA SO THE COMPUTER 
CAN SORT AND SELECT A PERSON 
THAT MIGHT BE COMPATIBLE WITH YOU. 

YOUR FIRST NAME? MAC 

AGE? 31 

MALE OR FEMALE (1 or 2)? 1 
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USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 

YOUR HOBBY7 COMPUTERS 
YOUR INTEREST 7MONEY 
WHAT YOU LIKE7FOOD 
WHAT YOU DISUKE7 NOISE 
TYPE OF MUSIC? EASY 
TYPE OF CAR? LARGE 
COLOR CHOICE? BLUE 

THE NEXT PART OF THE PROGRAM 
WILL BE DEALT WITH IN ONE 
OF TWO WAYS: 

FIRST, YOU CAN HAVE SOMEONE 
ELSE ANSWER THE QUESTIONS. 
SECOND, YOU CAN ANSWER THEM 
ABOUT PERSONS YOU KNOW. 

WHAT WILL IT BE (1 or 2)7 J, 

SEND IN FEMALE # 1 

TO ANSWER THE QUESTIONS. YOU 

SHOULD NOT BE PRESENT, MAC. 

PRESS ENTER WHEN READY 

YOUR FIRST NAME? SARAH 

AGE? 29 

USING ONE WORD FOR EACH, ANSWER 

THESE QUESTIONS? 



YOUR HOBBY7 COOKING 
YOUR INTEREST7 SEWING 
WHAT YOU LIKE? PARTIES 
WHAT YOU DISLIKE7 NOISE 
TYPE OF MUSIC? EASY 
TYPE OF CAR? SMALL 
COLOR CHOICE? RED 

SEND IN FEMALE # 2 
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TO ANSWER THE QUESTIONS. YOU 
SHOULD NOT BE PRESENT, SARAH. 

PRESS ENTER WHEN READY 

YOUR FIRST NAME? SANDRA 

AGE? 32 

USING ONE WORD FOR EACH, ANSWER 

THESE QUESTIONS? 

YOUR HOBBY? COMPUTERS 
YOUR INTEREST? COLLECTING 
WHAT YOU LIKE ?FOOD 
WHAT YOU DISLIKE? BUGS 
TYPE OF MUSIC? ROCK 
TYPE OF CAR? SMALL 
COLOR CHOICE? BLUE 

SEND IN FEMALE # 3 

TO ANSWER THE QUESTIONS, YOU 

SHOULD NOT BE PRESENT, SANDRA. 

PRESS ENTER WHEN READY 

YOUR FIRST NAME? MARTHA 

AGE? 28 

USING ONE WORD FOR EACH, ANSWER 

THESE QUESTIONS? 

YOUR HOBBY?MEN 
YOUR INTEREST? MONEY 
WHAT YOU LIKE? DIAMONDS 
WHAT YOU DISLIKE ?ANIMALS 
TYPE OF MUSIC? EASY 
TYPE OF CAR? LARGE 
COLOR CHOICE? GREEN 

SEND IN FEMALE # 4 

TO ANSWER THE QUESTIONS. YOU 

SHOULD NOT BE PRESENT, MARTHA. 

PRESS ENTER WHEN READY 
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YOUR FIRST NAME? ROBIN 

AGE? 35 

USING ONE WORD FOR EACH, ANSWER 

THESE QUESTIONS? 



YOUR HOBBY 7STAMPS 

YOUR INTEREST? FLYING 

WHAT YOU LIKE? LARGE HOUSES 

WHAT DO YOU DISLIKE? SMALL HOUSES 

TYPE OF MUSIC? ANY KIND 

TYPE OF CAR? LARGE 

COLOR CHOICE? BLUE 



SEND IN FEMALE # 5 

TO ANSWER THE QUESTIONS. YOU 

SHOULD NOT BE PRESENT, ROBIN. 

PRESS ENTER WHEN READY 

YOUR FIRST NAME? SHERRY 

AGE? 27 

USING ONE WORD FOR EACH, ANSWER 

THESE QUESTIONS? 

YOUR HOBBY ?FURNITURE 

YOUR INTEREST? CARS 

WHAT YOU LIKE?MONEY 

WHAT YOU DISLIKE ?FAST FOODS 

TYPE OF MUSIC? COUNTRY 

TYPE OF CAR? SMALL 

COLOR CHOICE? PURPLE 

IF MAC IS NOT PRESENT, SEND 
HIM TO THE COMPUTER, PLEASE. 

MAC, 5 WOMEN ANSWERED THE QUESTIONNAIRE. 

DO YOU HAVE MORE, OR SHALL 

I PROCESS THE CURRENT DATA. 

(MORE OR PROCESS)? PROCESS 

I WILL NOW SORT AND PROCESS THE DATA 

YOU WILL KNOW IF ONE WILL BE 

COMPATIBLE IN A MOMENT MAC. 
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START 



INSTRUCTIONS 
IF NEEDED 




INPUT ALL 
DATA 



J = J + 1 




PROCESS 

ALL DATA 



OUTPUT LIST 

PERCENT AMTS 



FINAL 
MESSAGE 



STOP 



Flowchart for Date Service. 
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NAME PERCENT COMPATIBLE 

SANDRA 50 % 

MARTHA 50 % 

SARAH 37.5 % 

ROBIN....... 37.5 % 

SHERRY 12.5% 

ENTER? 

REMEMBER, THIS IS ONLY A 
COMPUTER PROGRAM 
EXPRESSING WHO MIGHT BE 
COMPATIBLE WITH YOU THROUGH 
ENTERED DATA.... 

END OF**DATE SERVICE** 

Program Listing 

S10 REM PROGRAM TITLE: DATE SERVICE 

20 CLEAR 1000 :DIM R< 12) 

30 RANDOM: J=0 , AM=5 

4 CLS:M$="MALE" : FS = "FEMALE" :U$="YOUR" 

50 FRINT"** DATE SERVICE * * " 

60 FRINT: E$="YOU" 

70 PRINT"OPERATING INSTRUCTIONS <Y/N> " ; 

80 INPUT A$ 

90 IF LEFTS (AS , 1 ) <> "Y" THEN l?0 

100 PRINT 

110 FRINT"BEEN HAVING PROBLEMS FINDING" 

120 FRINT"THE RIGHT PERSON TO DATE ? " 

130 PRINT"HAVE NO FEAR - COMPUTER DATE" 

140 FRINT"SERVICE IS HERE !!" 

150 PRINT"NATURALLY, YOU'LL NEED TO INPUT" 

160 PRINT"REQUIRED DATA SO THE COMPUTER" 

170 PRINT"CAN SORT AND SELECT A PERSON" 

180 FRINT"THAT MIGHT BE COMPATIBLE WITH YOU . 

190 PRINT 

200 PRINT U$;" FIRST NAME", 

205 INPUT N$(J):IF N$(J)="" THEN 200 

2 10 INPUT"AGE" ; A < J > 

215 IF JO0 THEN PR INT: GOTO 230 

220 INPUT"MALE OR FEMALE (1 OR 2)";S:PRINT 

225 IF S=I THEN W$=F$ ELSE W$=M$ 

230 PRINT"USING ONE WORD FOR EACH, ANSWER" 
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240 PRINT"THESE QUESTIONS ,l ; 

245 IF SE<>2 THEN PRINT N$(J); H . n ELSE PRINT 

250 PRINT U$; n HOBBY ";: INPUT A$(J) 

260 PRINT U$; n INTEREST 1 * ;: INPUT BS(J) 

2 70 PRINT 'WHAT " ; E $ ; " LIKE" ; 

272 IF SE=2 FRINT"S M ; 

275 INPUT C$ (J) 

280 PRINT"WHAT " ; E $ ; " DISLIKE"; 

282 IF SE=2 FRINT"S"; 

285 INPUT D$ (J) 

290 INPUT"TYFE OF MUS I C " ; E $ ( J ) 

300 INPUT"TYPE OF CAR";F$(J) 

310 INPUT"COLOR CHO I CE " ; G $ ( J ) 

320 CLS: IF J = AM THEN 620 

325 IF JOG PRINT: J = J+1 : GOTO 430 

330 FRINT"THE NEXT PART OF THE PROGRAM** 

340 FRINT"WILL BE DEALT WITH IN ONE" 

350 PRINT"OF TWO WAYS:" 

360 PRINT"FIRST, YOU CAN HAVE SOMEONE" 

370 PRINT"ELSE ANSWER THE QUESTIONS " 

380 FRINT"SECOND, YOU CAN ANSWER THEN" 

390 FRINT"ABOUT PERSONS YOU KNOW." 

400 PRINT: J = J+ 1 

4 10 PRINT"WHAT WILL IT BE (1 OR 2)"; 

420 INPUT SE :N$=N$ (0) 

430 IF SE=i THEN 460 

440 IF SE=2 THEN 540 

4 50 GOTO 4 00 

46 REM OTHERS TO INPUT 

470 PRINT"SEND IN l, ;W$; M #";J 

480 PRINT"TO ANSWER THE QUESTIONS, YOU" 

490 PRINT"SHOULD NOT BE PRESENT, "; 

49 5 IF J* 6 PR I NT .GOTO 510 

500 PRINT N$ (J-l >;".": PRINT 

510 PRINT-PRESS ENTER WHEN READY"; 

520 INPUT X$ 

530 CLS:GOTO 190 

540 REM USER TO INPUT 

545 IF J>=2 PRINT M ANSWER " ; : GOTO 600 

550 PRINT"YOU ARE ABOUT TO ANSWER THE" 

560 PRINT"QUESTIONS FOR THE ";W$; H ' S " 

570 PRINT"THAT YOU KNOW DO NOT BE" 

580 PRINT"ONE SIDED TO TRY AND OBTAIN" 

590 FRINT"A COMPATIBLE PERSON ANSWER" 

600 PRINT"AS FACTUALLY AS POSSIBLE, "; 

610 PRINT N5;" M : GOSUB 8 5 : PR I NT : GOTO 510 

620 REM DATA IN 

630 CLS 



127 



640 

650 
660 
670 
680 
685 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 

8 20 
830 
840 
850 
855 
860 
870 
880 
890 
900 

9 10 
920 
9 30 
940 
950 
960 
970 
980 
990 

1000 
10 10 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 



FRINT"IF ";N$;" IS NOT PRESENT, SEND 11 

IF S=l FRINT U HIM M ;:GOTO 670 

FRINT"HER " ; 

PRINT"TO THE COMPUTER, PLEASE." 

PRINT: IF AA=AM-X THEN PRINT:GOTO 890 

IF SE=2 FRINT"YOU HAVE " ; : GOTO 720 

PRINT N5 ; " , " ; J; 

IF S=l PRINT"WOMEN " ; : GOTO 720 

PRINT"MEN "; 

PRINT-ANSWERED THE QUESTI ONNA I RE . " 

FRINT"DO YOU HAVE MORE, OR SHALL" 

PRINT"I PROCESS THE CURRENT DATA." 

INFUT"<MORE OR PROCESS >"; OS 

IF Q$="MORE" THEN 790 

IF QS="PROCESS n THEN PRINT:GOTO 890 

PRINT:GOTO 690 

PRINT N$; n UP TO " ; 1 - J ; "MORE CAN" 

FRINT"ANSWER, THEN I MUST PROCESS," 

INPUT"HOW MANY MORE DO YOU HAVE";X 

AA^AM: AM^AM+X 

IF AM>=1 1 THEN 

J=J+1 : PRINT; IF 

REM FOR INPUT 

IF J>=2 RETURN 

IF S=l THEN U$="HER' 

U$= M HIS" : E$="HE" 

RETURN 

IF AA<AM THEN AR=AM ELSE AR=AA 

PRINT"I WILL NOW SORT AND PROCESS DATA" 

PRINT"YOU WILL KNOW IF ONE WILL BE" 

PRINT"COMPATIBLE IN A MOMENT ";N$;"," 

1 = : X=l : P=l 

IF ABSCAC I) -ACX) )<=5 THEN GOSUB 1150 



AM=AA; PRINT: GOTO 790 
SE=2 THEN 510 ELSE 460 



:E$="SHE" :GOTO 880 



ON P GOTO 960,970 
T$=A$ ( I ) : A$=A$ (X) 



T$=B$ ( I ) : 

T$ = C$ < I ) . 

T$=D$ CI): 
T$-E$ ( I ) : 
T$=F$ ( I ) : 
T$=G$ ( I ) : 

IF T$ <> A$ 



A$=B$ (X) 
A$ = C$ (X) 
A$ = D$ (X) 
A$=E$ (X) 
A$=F$ (X) 
A$=GS CX) 
THEN 1050 



980 , 990 , 1000 , 1010 , 1020 

GOTO 1030 

GOTO 10 30 

GOTO 1030 

GOTO 1030 

GOTO 1030 

GOTO 1030 



GOSUB 11 50: REM MATCH 

F = F+1 

IF P=8 THEN 1080 

GOTO 950 

R(X)=TR: P=l 

X = X+1 
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1100 IF X>AH THEN 1 180 

1110 TR=0:GOTO 940 

1150 REM POINT PER MATCH 

1 1<S0 TR=TR+ 12 . 5 

1170 RETURN 

1180 REM PERCENT 

1 190 1 = 1 : F = 

1200 IF R(I)=0 THEN 12 40 

1210 IF R( I )>«R<I+1 ) THEN 1240 

12 20 R = R< I) :R( I)=R( I + I ) :R(I + 1 ) S5 R:F=1 
1230 H$=H$ ( I ) :N$ ( I ) =N$ ( 1+1 ) :N$ < 1+1 )=N$ 
1240 1=1+1 

1250 IF I >AR THEN 1270 

1260 GOTO 1200 

1270 IF F=l THEN 1190 

1280 REM LIST 

1290 PRINT-NAME" TAB ( 2 ) " PERCENT COMPATIBLE" 

1300 PRINT:FOR 1=1 TO AR 

1310 IF R< I )=0 THEN 1 330 

1320 PRINT NS(I);» "TAB<25> R(I >;'•%" 

1330 NEXT 

1340 PRINT; FOR 1=1 TO 2000 

1350 NEXT: INPUT" ENTER" ; X : CLS 

1360 PRINT"REMEMBER, THIS IS ONLY A" 

13 70 PR I NT" COMPUTER PROGRAM" 

1380 PRINT"EXPRESSING WHO MIGHT BE" 
1390 PRINT"COMPATIBLE WITH YOU THROUGH" 
1400 PRINT"ENTERED DATA " 

14 10 PRINT 

1420 PRINT"END OF ** DATE SERVICE **" 
14 30 END 

Variables and Strings 

J - Counter, total persons entered 

AM - Current amount 

M$, F$, U$, & E$ - Are used for print messages, depending upon the 

sex of the main user 
N$(J) - Name of person 
A(J) - Age of user 
S & SE - Are used for print messages again , depending upon the sex 

of the main user 
A$(J) & G$(J) - Are used to enter necessary data 
AA - Value of AM, if additional persons are to be included 
P - Counter, for comparing entries 
R(X) - Total points, when entries match 
TR - Number of points per match 
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Explanation of the Program Lines 

Line 30 sets two variables : one is a counter; the otner is t^e 
total number of potential partners that can respond during the initial 
section of the program. 

Lines 40-60 contain strings; the contents of these will change 
according to the questions and the sex of the user. 

Lines 70-180 display the general operating instructions. 

Lines 200-310 form the main body of the program. The main 
user answers all the questions first. 

Lines 320-440 begin the second part of the program, if 
Jo AM. 

Lines 460-530 call the other users to answer all necessary 
questions. 

Lines 540-610 are used for the main (first) user if he or she has 
chosen to answer the questions about people of the opposite sex. If 
the main user decides to answer these questions, he or she should 
not be one-sided as this will defeat the purpose of the program. 

Lines 620-750 call the main user back to the computer. At this 
point, he or she will be asked if there are more persons to input data. 

Line 760 branches to lines 790-840 for data entries involving up 
to 5 more people. 

Line 770 jumps to line 890 for the processing of the data 
entered. 

Lines 890-1270 compare each piece of data to the main users 
data. If a match is made 12,5 points are added to the total score. No 
points are given if the data does not match. 

Lines 1280-1430 print the entire list of names. The percentage 
of compatability is also printed if it is not equal to 0. 
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HOW ABOUT, NAW, NOT IN TOWN 

THEN WHAT ABOUT, NAW, LEFT 

THE COUNTRY, 

SELECT 1-6? 7 

SORRY PERSON CANNOT BE LOCATED 

IN THIS FILE . . . 
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KEY A DATE 

No the computer will not not run out and get you a date ! You'll be 
able to select more easily who you want to date though. With the 
help of this program, you'll build yourself a file for your own 
personal use that no one else can pry into. If another person comes 
along to nose into your file, they will be surprised if they don't enter 
the correct code and the entire program disappears ! 

Sample Run 

><><KEY A DATExx 

1) INSTRUCTIONS 

2) SEND DATA / RETRIEVE DATA 

3) SEE A NUMBER / ADD A NAME 

4) DELETE A NAME 

5) SEE ENTIRE LIST 

6) TERMINATE RUN 
1 

THE INSTRUCTIONS ARE QUITE STRAIGHT- 
FORWARD AND SIMPLE. ALMOST ALL 
OF US THAT ARE NOT MARRIED (AND 
SOME THAT ARE) CARRY AROUND A 
LITTLE BOOK. THIS LITTLE BOOK 
CONTAINS NAMES AND PHONE NUMBERS 
OF PERSONS OF THE OPPOSITE SEX 
WITH WHOM YOU MIGHT WANT TO 
MAKE A DATE. NOW YOUR COMPUTER 
IS ABOUT TO RELIEVE YOU OF THE 
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Fig. 3-14. Flowchart for Key a Date. 
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CHORE OF THUMBING THROUGH 
THAT LITTLE BOOK AND GIVE ONLY 
YOU ACCESS TO ITS CONTENTS. 



STRIKE A KEY 

YOU WILL BE ALLOWED TO ENTER 
UP TO 30 NAMES AND PHONE NUMBERS 
OF THE PEOPLE THAT YOU CHOOSE 
ALONG WITH THIS YOU WILL ENTER 
A CODE NUMBER (5 DIGIT). THIS 
CODE WILL BE SAVED ON TAPE 
ALONG WITH ALL THE OTHER DATA. 
WHEN YOU WANT TO RETRIEVE THE 
DATA, YOU'LL NEED TO REMEMBER 
YOUR CODE.. OR YOU'LL NEVER 
SEE THE DATA AGAIN !!! 

STRIKE A KEY 

><>< KEY A DATE ><>< 

1) INSTRUCTIONS 

2) SEND DATA / RETRIEVE DATA 

3) SEE A NUMBER / ADD A NAME 

4) DELETE A NAME 

5) SEE ENTIRE LIST 

6) TERMINATE RUN 



Program Listing 



10 REM PROGRAM TITLE: KEY A DATE 

20 CLEAR 1200:CLS 

30 DIM N$ ( 30 ) ,P$ (30 > : N= 1 

40 PRINT" ><>< KEY A DATE ><><" 

5 PRINT 

60 PRINT" 1) INSTRUCTIONS" 

70 FRINT"2> SEND DATA / RETRIEVE DATA" 

80 PRINT"3) SEE A NUMBER / ADD A NAME" 

90 FRINT"4) DELETE A NAME" 
100 PRINT"5) SEE ENTIRE LIST" 
110 FRINT"6> TERMINATE RUN" 
120 INPUT I 

130 ON I GOTO 140,460,690,910,1310,1600 
140 CLS 

150 PRINT"THE INSTRUCTIONS ARE QUITE 
STRAIGHT-" 
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160 FRINT"FORWARD AND SIMPLE ALMOST ALL" 

170 PRINT"OF US THAT ARE NOT MARRIED (AND" 

180 PRINT"SOME THAT ARE) CARRY AROUND A" 

190 PRINT-LITTLE BOOK, THIS LITTLE BOOK" 

200 PRINT M CONTAINS NAMES AND PHONE NUMBERS' 

210 PRINT M OF PERSONS OF THE OPPOSITE SEX" 

220 PRINT"WITH WHOM YOU MIGHT WANT TO" 

230 FRINT"MAKE A DATE WITH, WELL NOW YOUR" 

240 PRINT"COMPUTER IS ABOUT TO RELIEVE YOU' 

250 PRINT"OF THE CHORE OF THUMBING THROUGH' 

260 FRINT"THAT LITTLE BOOK AND GIVE ONLY" 

270 FRINT"YOU ACCESS TO ITS CONTENTS." 

280 PRINT:GOSUB 290;GOTO320 

290 PRINT"STRIKE A KEY" 

300 X$=INKEY$:IF X$ = " M THEN 300 

3 1 CLS ; RETURN 

320 FRINT"YOU WILL BE ALLOWED TO ENTER" 

330 PRINT"UP TO 30 NAMES AND PHONE NUMBERS' 

340 PRINT"OF THE PEOPLE THAT YOU CHOOSE." 

350 FRINT"ALONG WITH THIS YOU WILL ENTER" 

360 PRINT"A CODE NUMBER (5 DIGIT). THIS" 

370 PRINT M CODE WILL BE PROCESSED TO TAPE" 

380 PRINT" ALONG WITH ALL THE OTHER DATA." 

390 PRINT"WHEN YOU WANT TO RETRIEVE THE" 

400 FRINT"DATA, YOU'LL NEED TO REMEMBER" 

410 PRINT"YOUR CODE . OR YOU'LL NEVER" 

420 FRINT"SEE THE DATA AGAIN M!" 

425 ' IF PROGRAM IS LEFT AS-IS 

4 30 PRINT 

440 GOSUB 290 

450 GOTO 4 

460 ' SEND / RETRIVE DATA 

470 CLS 

480 INPUT"SEND OR RETRIEVE (S/R)";XS 

490 IF X$="S" THEN 520 

500 IF X$="R" THEN 590 

510 PRINT;GOTO 480 

520 CLS 

530 PRINT"READY PLAYER (IN RECORD)" 

540 INPUT"THEN KEY ENTER" ;X$ 

550 PRINT #-l,CD:PRINT #-l,N 

560 FOR 1=1 TO N 

570 PRINT #~1 ,N$ ( I ) , P$ ( I ) :NEXT 

580 CLS: GOTO 40 

590 ' RETRIEVE DATA 

600 CLS 

610 PRINT"READY PLAYER (IN PLAY)" 

620 INPUT"THEN ENTER CODE";C 
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630 INPUT #-1 , CD 

6 40 IF CO CD THEN NEW 

650 INPUT #-1 ,N 

660 FOR 1=1 TO N 

670 INPUT #-1 ,N$ ( I ) ,P$ ( I ) :NEXT 

680 CLS;GOTO 40 

69 ' ADD A NAME 

700 ' SEE A NUMBER 

7i0 CLS:GOTO 1100 

720 PRINT"** ADD A NAME * * " 

730 IF NO 1 THEN 840 

740 PRINT" INPUT FULL NAME, THEN FHONE H 

750 FRINT"NUMBER. USE A - TO SEPARATE" 

760 FRINT"FARTS OF THE NUMBER . " 

770 PRINT M TO CANCEL, PRESS 'ENTER' ONLY" 

780 PRINT"FOR A NAME," 

790 PRINT 

800 INPUT N$ <N> 

810 IF N$<N>="" THEN PRINT:GOTO 855 

820 INPUT P$ (N) 

830 N=N+1 

840 IF N> = 31 THEN N=N- 1 : GOTO 870 

850 GOTO 790 

855 IF CD< >0 THEN 865 

860 IF NOl THEN INPUT"5 DIGIT CODE";CD 

865 GOSUB 290:CLS:GOTO 40 

8 70 PRINT 

880 PRINT"YOU HAVE ENTERED THE LIMIT" 
890 PRINT"FOR THE PROGRAM ,"; N ; "NAMES n 
900 PRINT: IF FR=0 GOTO 855 ELSE 865 

9 10 ' DELETE A NAME 

920 CLS;FRINT M ** DELETE A NAME **" 
930 PRINT"TO DELETE A NAME AND NUMBER," 
940 PRINT" INPUT THE ENTIRE NAME OF THE" 
950 FRINT"PERSQN, AS IT APPEARS IN THE" 
960 PRINT"FILE. VHO IS THE PERSON YOU" 
970 INFUT"WANT TO REMOVE FROM LIST";N$ 
980 FOR 1=1 TO N 
990 IF N$=N$(I) THEN 1060 

1000 NEXT, PRINT 

1010 IF P=0 THEN 1040 

1020 PRINT N$;" REMOVED FROM FILE." 

1030 P=0 :GOTO 900 

1040 PRINT N$;" COULD NOT BE LOCATED " 

10 50 GOTO 1030 

1060 NS < I )*"" :P$ < I >="" 

1070 P=l:GOSUB 1460:IF N=0 N* 1 

1080 PRINT: GOTO 10 10 

1100 ' SEE A NAME? 
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1110 INFUT"SEE A NUMBER <Y/N)";X$ 

1120 IF X$="N" THEN CLS : GOTO 720 

1130 PRINT: IF N= 1 AND H$ (H) =" " THEN 1550 

1140 PRINT" INPUT PERSON'S LAST NAME ONLY"; 

1 150 INPUT L$ 

1160 L=l 

1 1 70 LE=LEN(N$ ( L) ) 

1180 FOR 1=LE TO 1 STEP-i:IF 1=0 THEN 1280 

1185 IF MID$ <N$ CD , I , 1 >=" M AND D=0 THEN 1420 

1190 NA$=MID$ (NS (L) , I , 1 >+NA$ 

12 00 NEXT 

1210 PRINT NAS ; 

1220 INPUT" <Y/N>" ;X$ 

1230 IF X$="Y" THEN 1260 

1240 IF X$="N" THEN 1280 

12 50 PRINT: GOTO 12 10 

1260 PR I NT" THE NUMBER: " ; P$ < L> :NA$=" " 

1270 D=0 : PRINT:GOSUB 290:GOTO 40 

1280 NA$="" : L = L + 1 

1290 IF L>=N THEN N$=L$:GOTO 1040 

1300 GOTO 1170 

13 10 ' ENTIRE FILE 
1320 L=l : A=l : CLS 

1330 PRINT"NAME / NUMBER" 

1340 PRINT N$ (L) ,P$ (L) 

1350 L = L+1 ; A=A+1 

1360 IF L> =N THEN 13 90 

1370 IF A>=8 THEN A= 1 : PR INT : GOSUB 29G:L=L~1 

1 380 GOTO 1340 

13 90 PRINT 
1400 GOSUB 290 

14 10 GOTO 4 
1420 ' RIGHT NAME 

1430 IF NA$< >L$ THEN 1280 

1440 D=l 

1450 GOTO 1 190 

1460 ' RE-SORT FILE 

1470 FOR 1=1 TO N 

1480 IF N$(I)="" THEN 1500 

1490 NEXT:RETURN 

1500 Jsl+l 

1510 N$(I)=N$(J):P$(I)=P$(J) 

1520 1 = 1 + 1 : J = J+1 

15 30 IF J>H THEN N=N- 1 : RETURN 
1540 GOTO 1510 

1550 ' NONE IN FILE 

1560 PR=1 

1570 PRINT"** NO NAMES IN FILE **" 

15 80 GOTO 90 
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1600 ' TERMINATE 

16 10 PRINT 

1620 PRINT"END OF PROGRAM" 

1630 END 

Variables and Strings 

N$(I) - Names in the file 

P$(I) - Phone numbers in the file 

N - Counter, number in file 

X$ - General input string 

CD - 5 digit code number 

P - Either equal to or 1 for deleting a name 

D - Either equal to or 1 for searching for a particular name 

L & A - Counters for printing all names in the current list 

PR - Name not in file (if equal to 1) 

Explanation of the Program Lines 

Line 20 clears 1200 bytes of memory for string storage. 

Line 30 dimensions the N$ and P$, arrays for the names and 
phone numbers. 

Lines 40-120 display the command list. 

Line 130 sends control to the appropriate line depending on the 
value input for I. 

Lines 140-440 display the general instructions. 

Lines 460-680 either send data to the tape player or retrieve it 
from the tape player. If the program is left as-is the user must enter 
the 5 digit code that was placed on the tape in order to retrieve data. 
If the user fails to enter the correct code, C< >CD, the entire 
program in memory will be 'dumped'. 

Lines 690-900 and Lines 1100-1300 let the user either see a 
phone number or add a name. With the program as-is, up to 30 
names and phone numbers can be entered. 

Lines 910-1080 allow the user to delete a name and number 
from the current file. 

Lines 1310-1410 display the entire file that is currently in 
memory. 

Lines 1420-1450 test for a correct name when the user wants to 
locate a certain number only last names are used. 

Lines 1460-1540 re-sorts the entire file when a name has been 
deleted. 

Lines 1550-1580 display a message if there are no names in the 

file. 

Lines 1600-1630 terminate the program. 
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Games That Span the Ages 



Squares is a game like checkers, but you can move in any direction 
you want. Challenge a friend or the computer. 

Hold Time allows you to stop the computer's piece while you 
shoot it. It's not that easy though : your lasers must be at the right 
location at the right moment. 

Dangerous Affair challenges even the best would-be spy by 
making you work with coded messages and incompetent agents. 

Pennies or Dollars offers you the chance to get rich quick or 
to become poor in just as short a time. 

Be Prepared (Part I) tests your dexterity and your luck. 
You'll need both to successfully dock your spaceship. 

Rain of Terror is a test of your courage. How long do you dare 
remain at the spot where the bomb will hit? 

Knights places you in medieval times. The king is depending 
on you to destroy the outlaws without killing their hostages. 
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SQUARES 

This program will give you all of the action that checkers never 
attempted to have! Without having to get "crowned" you can move 
wherever you wish on the playing board, just so long as you do it to 
win! If 4 people are playing, the victor of the first game can play the 
victor of the second game. Of course, you can play by yourself 
against the computer. 

Sample Run 

SEE INSTRUCTIONS? YES 

SQUARES 



HOW MANY TO PLAY (1-4)? 2 
JUST LIKE CHECKERS, YOU WILL MOVE 
FROM SQUARE TO SQUARE TRYING TO 
OUTWIT YOUR OPPONENT AND JUMP 
THEIR PIECE. BUT, UNLIKE CHECKERS, 
EACH WILL ONLY HAVE 5 PLAYING 
PIECES. YOU CAN MOVE FORWARD OR 
BACKWARD, AS IF ALL PIECES ARE 
KINGS. THE VICTOR WILL BE THE 
PLAYER WITH PLAYING PIECES 
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INPUT INITIALS 
OF YY PLAYERS 



SET GRAPHICS 
PLAYING FIELD 



GET MOVE 
FROM PLAYER 





OUTPUT 
MESSAGE 




f STOP J 



Flowchart for Squares. 
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REMAINING. TO THROW IN THE TOWEL 
(GIVE UP) JUST ENTER A (ZERO) WHEN 
YOU ARE ASKED 'FROM?' 

PRESS ENTER? 

IF YOU ARE PLAYING BY YOURSELF, 
YOU WILL PLAY AGAINST THE COMPUTER. 
IF THREE ARE PLAYING, ONE WILL 
BE CHOSEN TO PLAY THE WINNER OF 
THE FIRST ROUND. IF FOUR ARE PLAYING 
THE COMPUTER WILL CHOOSE OPPONENTS 
AND THE WINNER OF ONE GAME CAN 
PLAY THE WINNER OF THE FOLLOWING 
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GAME. REMEMBER, MOVE ONE SQUARE AT A 
TIME UNLESS YOU ARE JUMPING. 

PRESS ENTER TO START? 

I NEED THE INITIALS OF THE 2 

PLAYERS? AM 

??AJ 



Program Listing 

10 REM PROGRAM TITLE: SQUARES 

2 CLS: RANDOM 

30 CLEAR 500 

40 DIM X(40> , Y( 40) ,W< 40) 

50 QQ=-99 

60 FF=1 

7 INPUT" SEE INSTRUCTIONS (Y/N) " ; A$ 

80 IF A$= n Y" OR A$="YES" THEN 120 

90 IF A$="N" OR A$="NO" THEN TN=l:GOTO ISO 

100 PRINT n TRY A SOLID ANSWER " 

110 PRINT;GOTO 70 

120 PRINT CHR$ ( 143) ; CHR$< 143) ; 

130 PRINT" SQUARES ";CHR$<143); 

1 40 PRINT CHR$ ( 143 ) 

150 PRINT 

160 PRINT"HOW MANY TO PLAY (1-4)"; 

170 INPUT YY 

180 IF YY<1 OR YY>4 THEN 150 

190 IF YY=1 THEN GL=1 

200 REM INSTRUCTIONS NOT NEEDED 

2 10 IF TN«1 THEN PRINT: GOTO 510 
220 REM INSTRUCTIONS 

240 FRINT"JUST LIKE CHECKERS, YOU WILL MOVE" 

250 PRINT"FROM SQUARE TO SQUARE TRYING TO" 

260 FRINT"OUTWIT YOUR OPPONENT AND JUMP" 

270 PRINT"THEIR PIECE BUT, UNL I KE CHECKERS , " 

280 PRINT"EACH WILL ONLY HAVE 5 PLAYING" 

290 PRINT"FIECES. YOU CAN MOVE FORWARD OR" 

3 00 PR I NT "BACKWARD, AS IF ALL PIECES ARE" 
3 1 PRINT"KINGS . THE VI CTOR WI LL BE THE" 
320 FRINT"FLAYER WITH PLAYING PIECES" 

330 FRINT"REMAINING TO THROW IN THE TOWEL" 

340 PRINT" (GIVE UP) JUST ENTER A 

(ZERO) WHEN" 

350 PRINT"YOU ARE ASKED 'FROM ?'" 
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360 PRINT 

370 INPUT-PRESS ENTER"; XX 

380 CLS 

390 FRINT"IF YOU ARE PLAYING BY YOURSELF," 

400 PRINT"YOU VI LL PL AY AG A INST THE COMPUTER " 

410 PRINT"IF THREE ARE PLAYING, ONE WILL" 

420 PRINT"BE CHOSEN TO PLAY THE WINNER OF" 

430 PRINT"THE FIRST ROUND . I F FOUR ARE PL AY ING " 

440 PRINT"THE COMPUTER WI L L CHOOSE OPPONENTS" 

450 FRINT"AND THE WINNER OF ONE GAME CAN" 

460 PRINT"PLAY THE WINNER OF THE FOLLOWING" 

470 FRINT"GAME. REMEMBER, MOVE ONE SOUARE AT A" 

480 PRINT"TIME UNLESS YOU ARE JUMPING," 

49 PRINT 

500 INFUT M FRESS ENTER TO START" ; XX 

510 CLS 

52 IF TN=1 AND YY=1 THEN 54 

5 30 IF YY>1 GOTO 750 

540 AA=RND<2> 

550 IF AA=1 THEN RR=l:GOTO 570 

560 RR=3:GOTO 600 

570 PRINT"YOU WILL FLAY FIRST..." 

580 PRINT"YOU HAVE THE SOLID PIECES." 

590 PRINT:GOTO 610 

600 PRINT"I WILL PLAY FIRST..." 

610 PRINT:IF ZOO THEN 1395 

750 MZ = 

760 PRINT"I NEED THE INITIALS OF THE";YY 

770 FRINT"PLAYERS" ; : FOR 1=1 TO YY 

780 INPUT INS ( I ) :NEXT 

790 IF YY=1 THEN F $ ( 1 ) = I N$ ( 1 ) : GOTO 900 

800 IF YY = 2 THEN 1200 

810 REM CHOOSE PLAYERS 

820 REM 3 OR 4 PLAYING 

830 A=l 

840 AA=RND<Y):IF AA=A THEN 840 

850 J=l : FOR 1=2 TO YY 

860 IF I=AA THEN 880 

870 AC J ) = 1 : JsJ+1 

88 NEXT 

890 A(J)=A:A<J+1)=:AA: GOTO 12 00 

900 PRINT"WE WILL NOW BEGIN. REMEMBER" 

910 PRINT INS(YY);", YOU ARE PLAYING" 

920 PRINT"AGAINST ME, YOUR COMPUTER." 

930 GOSUB 10000: CLS 

940 GOTO 1400 

970 PRINT"THERE ARE THREE OF YOU FLAYING " 

980 PRINT" I WILL NOW CHOOSE TWO PEOPLE TO" 
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990 FRINT"FLAY ONE ANOTHER , THE PERSON" 

1000 FRINT"REMAINING VILL PLAY THE" 

1010 PRINT"WINNER OF THE FIRST ROUND..." 

10 20 PRINT 

10 90 GOSUB 10 000 FRINT 

1100 PRINT P$<1), M YOU WILL PLAY AGAINST" 

X110 PRINT F$(2),". AFTER THESE HAVE PLAYED" 

1120 FRINT ,f YOU VILL PLAY THE WINNER M ; 

1130 PRINT P$ (3 ) ; " " 

1140 GOTO 1310 

1200 REM FOUR PLAYERS 

12 10 FOR 1=1 TO YY 

1215 IF YY=2 THEN F $ < I > = INS < I > ; GOTO 1230 

1220 F$ ( I ) = IN$ (AC I ) ) 

1230 NEXT IF YY = 2 THEN 1310 

1235 IF YY=3 THEN 970 

1240 PRINT F$(1), M YOU VILL PLAY M ;P$(2> 

1250 PRINT" IN THE FIRST ROUND. n ; F $ < 3 > 

1260 PRINT"WILL PLAY " ; P $ C 4 ) ; " IN THE" 

1270 FRINT'*SECOND FINALLY, THE WINNER" 

1280 PRINT"FROM EACH SET CAN PLAY EACH" 

12 90 PR I NT" OTHER. " : GOSUB 10000 

130 PRINT 

1310 REN 2 PLAYERS 

1320 A=RND<2) 

1330 AA=A~1;IF AA=0 THEN AA=2 

1 335 IF A=l THEN 1345 

1340 P$<1)=F$(AA):F$<2)=P$(A>; GOTO 13 50 

1345 P$(1)=P$(A):P$(2)=P$(AA) 

1 350 RR = A: VE = YY 

1360 PRINT P$(RR);" YOU VILL PLAY FIRST." 

1370 FRINT'«YOU HAVE THE "; 

1380 IF RR=2 PRINT"STEPPED PIECES" : GOTO 1395 

1390 FRINT"SOLID PIECES" 

1 395 GOSUB 10000 : CLS 

1400 REM PLAYING BOARD 

1410 FOR X=10 TO 115 

1420 SETCX, 1 ) :SET(X, 2) 

143 SET<X, 39 ) :SET(X, 40) :NEXT 

1440 FOR X = 3 TO 38 

1 450 SET( 10 ; X) :SETC 1 1 , X) 

146 SET( 1 14 , X) : SET( 1 15 , X) :NEXT 

1470 L=116:P=70:F1=F+128 

1480 FOR 1=1 TO 30 

1 490 FRINT@P, I ; : F=F+10 

1500 IF P>=L THEN P = P 1 : P 1 =P 1 + 1 2 8 : L = L+ 1 2 8 

1510 NEXT:TP=5 : BP=5 : REM PIECES 

1520 K*l 1 : J=33 : Y=3 : L*Y+6 
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1530 FOR X = K TO J 

1540 SET(X, Y) : SET(X, Y+l ) : SET(X , Y+2 ) 

1550 SET(X , Y+3) : SET(X, Y+4) : SET(X, Y+5 > 

1560 NEXT 

1570 Y=Y+12 

1580 IF Y>=39 THEN 1600 

1 590 GOTO 1530 

1600 K=X : J=K+I9 : Y=L : L = Y-6 

1610 IF Y = -3 THEN Y=-L 

1620 IF Y=-9 THEN Y=-<L/3>-2 

1630 IF Y = -15 THEN 1650 

16 40 GOTO 15 30 

1650 REN SET PIECES (TOP) 

1660 X = 35 : Y=7 ; J = 2 :M=4 

1670 FOR IssX TO X+16 

1680 SET( I f Y) :SET< 1+40 , Y) 

1690 IF T=l THEN SET ( I + 8 , Y ) : M« 1 

1700 NEXT: IF T= 1 THEN GOSUB 1900:GOTO 1720 

1710 GOSUB 19 00 : X»15 : Y= 1 3 : T= 1 : GOTO 167 

1720 REM SET PIECES (BOTTOM) 

173 GOSUB 1960:X=35:Y=Y+18:T=0:M=24 

1740 FOR I=X TO X+16 STEP 2 

1750 SET( I , Y) :SET( 1+40 , Y) 

1760 IF T=l THEN SET ( I + 8 , Y ) : M= 3 

1770 NEXT: IF T= 1 THEN GOSUB 1900:GOTO 1790 

1780 GOSUB 1900: :X=15:Y = Y + 6:T=1 : GOTO 1740 

1790 REM SET START LOCATIONS 

1800 GOSUB 2030:J=2:FOR 1=2 TO 10 STEP 2 

1810 V(J)=1:V(J+10)=-99:J=J+2:NEXT:J=22 

1820 FOR 1=22 TO 30 STEP 2 

1830 V( J)=99 : J=J+2 :NEXT: GOTO 2100 

1840 GOSUB 10060:GOSUB 1 8 : PR INT@9 1 , ; 

1850 INPUT"FROM SQUARE "; F : I F F>30 THEN 1840 

1855 IF F=0 AND RR=2 THEN RR=l:GOTO 4100 

1856 IF F=0 AND RR= 1 THEN RR=2:GOTO 4100 

18 60 GOSUB 10060 : GOSUB 10080 : FRINT@9 , ; 
1870 INPUT" TO SQUARE", T: IF T>30 THEN 1860 
188 RETURN 

1900 REM PIECE LOCATION 

1910 X(J)=X:Y<J)aY 

1920 J=J+2 

1930 IF J = M THEN 1910 

19 40 IF J<=M AND T= 1 THEN 19 10 
195 RETURN 

1960 REM PIECE LOCATION (MIDDLE) 

1970 L = 6 : D=20 : M= 1 4 

1980 X( J)=X+D: Y( J)=Y+L 

1990 J=J+2 
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2000 IF J*M THEN 1980 ELSE T=1:M=20 

2010 IF J<=M THEN D= : L = 1 2 : GOTO 1980 

20 2 RETURN 

2030 REM LOCATION PLUS AMOUNTS 

2040 FOR 1 = 8 TO 28 STEP 1 : X ( I ) «X < I ) +4 

2050 NEXT:FOR 1*4 TO 24 STEP 10 

2060 X( I )=X< I ) + 40 :NEXT 

2070 FOR 1*10 TO 30 STEP 10 

2080 XC I ) = X( I >+80 :NEXT 

209 RETURN 

2100 IF RR = 3 THEN 2900 

2104 GOSUB 1840: IF RR=2 THEN 2400 

2105 IF W(F)=99 AND RR= 1 THEN 4500 
2108 Q=99 

2110 IF V<T><>-99 THEN 12000 

2120 IF ABS(F-T)=6 THEN MX* 1: GOTO 2145 

2130 IF ABSC F-T>=1 2 THEN MX = 2 : A= 6 : GOTO 2145 

2140 GOTO 2300 

2145 IF V(T)=1 THEN 12000 

2150 IF F<T THEN 2165 

2160 A=-A 

2165 IF MX=1 THEN 2190 

2170 IF MX*2 AND W(F+A>=~99 THEN 12000 

2180 IF MX = 4 AND W(F+A)*»99 THEN 12000 

2190 IF RR*2 OR RR = 3 THEN J* 2 ELSE J* 1 

2200 FOR I=X(F) TO X(F)+16 STEP J 

22 10 RESET C I , Y(F) ) :NEXT 

2220 FOR I*X(T) TO X(T)+16 STEP J 

2230 SET<I , Y(T> ) :NEXT 

2235 IF RR = 2 OR RR*3 THEN 2500 

2240 IF MX*2 OR MX=4 THEN 2270 

2250 W(T)=V<F) :W(F)=»99 

2260 GOTO 2280 

2270 W(T>=V<F):V<F>=~99:W<F+A>=W<F) ; GOTO 

2700 

2275 F*T:MX=0 : KL=0 : GOSUB 1 8 6 : ZC* 1 : GOTO 3120 

2280 REM ALTERNATE PLAYER 

2290 F=0:T=0:MX=0:A=0:Q*1 

2295 IF VE>=2 THEN RR=2:GOTO 2100 ELSE RR*3: 

GOTO 2 100 

2300 IF ABS(F~T)=4 THEN MX=3:GOTO 2145 

2310 IF ABS(F-T>=8 THEN MX * 4 ; A= 4 : GOTO 2145 

23 2 GOTO 120 00 

2400 REM OPPONENT (STEPPED SQUARES) 

2405 IF W(F>=1 AND RR=2 THEN 4500 

2410 IF W(T><>-99 THEN 12000 

2420 IF ABS(F-T)=6 THEN MX=5:GOTO 2450 

2430 IF ABS(F-T)=4 THEN MX=6:GOTO 2450 
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2440 
2450 
2460 
2470 
2480 
2500 
2510 
2515 
2520 
2530 
2540 
2550 
2560 
2565 

2570 
2580 
2590 
2600 
26 10 
2620 
2630 
2635 
2640 

2650 
2660 

2670 
2700 
2710 
2720 
2725 
2730 
2740 
2750 
2760 
2770 
2900 
2905 
2910 
2920 
2930 
2935 
2940 

2950 



GOTO 2 580 

IF U(T)=99 THEN 12000 
IF F>T THEN 21 90 
REM RESET SQUARE 
GOTO 2 190 

REM INTERCHANGE SQUARES (STEPPED) 
W(T)=V<F) :W(F)=-99 
IF KK=1 THEN 2540 
IF MX-7 OR MX = 8 THEN 2540 
KK=0 :MX=0 : A=0 : RR= 1 :MM=0 : GOTO 2 100 
IF F<T THEN A=~A:IF KK^i THEN 2560 
W<F+A)=~99 
GOTO 2 70 

IF KK=1 THEN F=T:IF RR=2 
1860 : ZC=1 : GOTO 3120 ELSE 
GOTO 2530 

IF ABS(F~T)=8 THEN MX=7:GOTO 2610 
IF ABS(F~T)=12 THEN MX^8:GOTO 2610 
GOTO 2100 

IF W<T)=99 THEN 12000 
IF MX=7 THEN A=-4:GOTO 2635 
A^-6 : GOTO 2 1 90 
IF RR = 3 THEN 2190 
F< > 18 



THEN GOSUB 
I=F:GOTO 2 92 5 



AND W<F+A>=-99 



F< >22 AND VCF + A): 
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IF F<>16 AND 

THEN 2 660 

GOTO 2 190 

IF F<>20 AND 

THEN 12000 

GOTO 2 190 

REM RESET SQUARE (JUMP) 

FOR I=X(F+A) TO X<F+A)+16 

RESETC I , Y(F+A) ) ;NEXT 

W(F)=:-99;W(F+A)=V(F) : GOTO 

REM MORE JUMPS ? 

REM TEST FORWARD AREAS 

I=T: A=G 

IF RR=3 THEN MM= 1 

GOTO 2 9 35 

GOSUB 10060 :REM COMPUTERS 

MG=0 :MX=0 : EE=0 : Q= 1 : GOSUB 

FOR 1=2 TO 30 STEP 2 

IF V< I )=99 THEN 2935 

NEXT: GOTO 38 00 

IF I>=24 THEN 2950 

IF V<I+6)=Q AND W(I+12)=QQ 

A=»12 :GOTO 3100 

IF W(I+4)=Q AND W(I+8)=QQ THEN 

A=~8 : GOTO 3100 
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PLAY 
10080 



THEN 
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2955 IF I< = 10 THEM 2975 

2960 IF W(I~4)=Q AND W(I~8)=QQ THEN 

A=8:G0T0 3 100 
2970 IF W(I-6>=:Q AND W(I»12)sQQ THEN 

A=12 :GOTO 3100 
2975 IF RR=1 THEN 2290 
2980 IF RR*2 THEN 2530 
29 90 IF MM=1 THEN MM=G:GOTO 25 30 
3000 A=0 :GOTO 3700 
3100 REM MOVE FEASABLE 
3105 IF RR=1 THEN KL=1:GOTO 3260 

3110 IF RR=2 THEN KK= 1 : GOTO 3260 

3111 IF MM=1 THEN KK=1 

3115 F=I :T=I-A:TT = T~-A: IF TT < * TT-0 

3120 IF F=2 AND T^ 1 THEN 3 4 

3130 IF F = 4 AND T= 1 6 THEN 3400 

3135 IF ZCsl THEN 3150 

3140 IF F=6 THEN 3250 

3150 IF F=10 AND T= 1 6 THEN 3400 

3152 IF ZC=1 THEN 3160 

3155 IF F=10 THEN 3260 

3160 IF F=12 AND T=20 THEN 3400 

3162 IF F=14 AND T=26 THEN 3400 

3165 IF F=14 AND T=6 THEN 11=1: GOTO 3400 

3166 IF ZC*1 THEN 3185 
3170 IF F=14 THEN 3270 
3180 IF F=16 THEN 3310 

3185 IF F=l& AND T=22 THEN 3400 

3186 IF F-16 AND T= 2 2 THEN 3400 
3188 IF ZCsl THEN 3200 

3190 IF F=20 THEN 3280 

3200 IF F = 22 AND T= 1 THEN 3400 

3201 IF F=22 AND T= 1 6 THEN 3400 

3202 IF F=22 AND T^30 THEN 3400 
3205 IF F^26 AND T= 1 4 THEN 3400 

3210 IF F=24 AND T= 1 6 THEN 3400 

3211 IF F=30 AND T=22 THEN 3400 

3215 IF F=30 AND T= 1 6 THEN 3400 ELSE IF ZC = 1 

THEN 35 
3220 IF F=26 THEN 3290 
3230 IF F=30 THEN 3300 

3240 IF F=22 AND T=30 THEN 3400 ELSE 3500 
3250 IF T*10 OR T= 1 4 THEN 3400 ELSE 3500 
3260 IF T=2 OR T=6 OR T=22 OR T= 2 4 THEN 3400 

ELSE 3500 
3270 IF T=6 OR T= 2 6 THEN I I = 1 : GOTO 3400 

ELSE 3500 
3280 IF T=sl2 OR T^ 1 6 OR T=26 THEN 3400 

ELSE 3500 
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3290 IF T=14 OR T=20 THEN 3400 ELSE 3500 

3300 IF T=22 OR T=26 THEN 3400 ELSE 3500 

3310 IF T=4 OR T= 1 OR T= 2 4 THEN 3400 

3320 GOTO 3500 

3400 REM WHICH TO WHERE 

3410 IF RR=1 THEN 2290 

3420 IF RR=2 THEN 2530 

3 4 30 IF 11=1 THEN 11=0: GOTO 2530 

3440 GOTO 3830 

3500 REM CONT. JUMP 

3510 IF RR=1 AND ZC = THEN 2275 

3515 IF RR=1 AND ZC^l THEN ZC=0:GOTO 2108 

3520 IF RR=2 AND ZC = THEN 2565 

3525 IF RR=2 AND ZC:=1 THEN ZC = 0:GOTO 2420 

3530 IF RR=3 THEN 3700 

3700 REM CHECK AHEAD / RE-TEST (COMPUTER) 

3710 IF W(F-A><>-99 AND KK=0 THEN 2930 

3715 IF A=8 OR A=-8 THEN MG=1 

37 2 IF A=12 OR A=-12 THEN MG=1 

3730 IF MG=1 THEN MG = : KK= : GOTO 2410 

3740 IF I>=8 AND KK=0 AND EE=0 THEN 3780 

3750 MX=MX+1 

37 6 IF MX<=1 THEN 29 10 
3 7 70 GOTO 24 10 

3780 IF BP> = 4 AND W(TT)al THEN 2925 

3 7 90 GOTO 3 750 

3800 REM ALTERNATE MOVES 

3810 AD=1 :MM=2 : FOR 1=30 TO 2 STEP-2 

3820 IF W<I)=99 THEN EE=l:GOTO 3855 

3830 IF KK=1 THEN 2410 ELSE NEXT 

3840 RR=0 : GOTO 41 10 

3850 KK=0 : F=0 :T=0 : RR= 1 : A=0 : GOTO 2100 

38 5 5 IF I<=4 THEN 38 7 5 

3860 IF W(I»4)=QQ THEN A=4:GOTO 3100 

3870 IF W(I~6)=QQ THEN A=6:GOTO 3100 

3875 IF I>=26 THEN 3900 

3880 IF W(I+4)=QQ THEN A=-4:GOTO 3100 

3890 IF W(I+6)=QQ THEN A=-6:GOTO 3100 

39 00 GOTO 38 3 

4000 REM GAME COMPLETED ? 

4010 IF RFU1 THEN 4040 

4020 IF RR=2 OR RR=3 THEN 4070 

4030 GOTO 2730 

4040 BF=BF~1 

4050 IF BP< = THEN 4100 

4060 GOTO 2730 

4070 TP=TF-1 

4080 IF TF<=0 THEN 4100 
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40 90 GOTO 27 30 
4100 REM COMPLETE 
4110 GOSUB 10030 
4120 IF RR = 2 THEN 4190 
4130 IF RRs:3 THEN 4190 
4140 IF GL=l THEN 4170 

4150 PRINT"YOU LOSE ";P$<2> 

4160 PS <FF)«P$ ( 1) :GOTO 4210 

4170 PRINT" I HAVE LOST. , ." : REM COMPUTER 

4 180 GOTO 42 10 

4190 FRINT"YOU HAVE LOST . . , " ; P $ C 1 ) 

4200 PS <FF>=P$ (2) 

42 10 REM CONTINUE / END 
4220 IF WE<=2 THEN 4420 
4230 REM 3 OR 4 PLAYERS 
4240 WNS <FF>=F$<FF> : FF=FF+t 
4245 IF AQal THEN 4410 
4250 IF FF=3 THEN 4400 

4260 IF WE=3 THEN F $ < 2 > =F $ < 3 > : GOTO 4300 

4270 P$(1)=P$(3):P$(2)=:P$(4) 

4280 PRINT P$(l);" YOU WILL NOW PLAY ,( ; F $ ( 2 > 

4 2 90 GOTO 13 10 

4300 PRINT FSCFF);" YOU WILL NOW PLAY "; 

43 10 PRINT PS ( 1 > 

43 2 GOTO 13 10 
4400 REM FINAL 

4405 IF WE=4 THEN 4450 

4410 PRINT WN$<FF-l); n IS THE GRAND WINNER ! 

44 2 PRINT 

4430 FRINT"END OF PROGRAM RUN..." 

44 40 END 

44 5 AQ=1 : PS < 1 > =WN$ < 1 ) :P$<2)=WNS < 2) 

4460 PRINT P$<1);" YOU WILL PLAY " ; P $ < 2 ) 

4470 PRINT"TO DETERMINE THE FINAL WINNER." 

4480 GOTO 1310 

4500 REM NOT CORRECT PLAYER 

4510 GOSUB 10030 

4520 PRINT"IT IS NOT YOUR PLAY H" 

4530 GOSUB 10050 

4540 GOTO 2100 

10000 REM TIME LOOP 

10010 FOR Q=l TO 5000:NEXT 

100 20 RETURN 

10030 PRINT@901 , ; 

10040 RETURN 

10050 FOR V=l TO 1000 .NEXT 

10060 FRINT@901 , STRINGS (50, 32) 

10070 IF T=0 RETURN 
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10080 PRINT©? 6 5 , "PLAYER ..."; PS (RR> ; 

10085 IF RR = 3 PR I NT" COMPUTER" ; 

10090 RETURN 

11000 GOSUB 10030 

11005 IF ZC=1 THEN 11030 

11010 PRINT"** CANNOT RESPOND * * " 

11020 GOSUB 10050 

11030 F=0 :T=0 : RETURN 

12000 REM ERROR MESSAGE 

12010 IF RR=3 THEN 2905 

12020 GOSUB 11000 

12 030 GOTO 2104 

Variables and Strings 

X,Y & W - Subscripted for piece set and reset locations, and the 

contents of squares W(I) 
QQ - Used to test ahead to determine the status of a square. 
FF - Used for player, if more than one is playing 
YY - Number of players 
TN - Used to skip the instructions 
AA & A - Used for random selection of player's turn 
RR - Used for player: RR=1 is for solid pieces, and RR=2 is for 

stepped playing pieces 
IN$(I) - Player's initials 

P$(I) - Player's initials, after random selection of first player 
WZ - Total number of players 

L, P & P 1 - Used for setting up the game board, along with X, Y, J & K 
F & T - For inputs of numbers of the squares to move from and to 
MX - Status of playing piece, to test if legal 
J - Used again for stepped pieces if RR=2 or RR=3 
KL & ZC - Used to determine if a jump is legal 
KK & ZC - Same as above for stepped pieces 
A - For movement of piece forward or backward 
EE, MG & AD - For alternate move (if possible) by computer 
TP - Number of squares at the top of the field 
BP - Number of squares at the bottom of the field 
GL - Computer playing 

WN$(FF) - Used if there are 3 or 4 players to determine the winner 
Q & U - For time loop (pause) 

Explanation of Program Lines 

Line 40 dimensions the X,Y, and W arrays for proper square 
and piece locations. 
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Line 50 sets the variable QQ to -99 for piece identification for 
a possible jump. 

Line 60 sets the variables FF to 1. FF is used to determine the 
final winner when there are more than 2 players. 

Lines 70-150 ask if instructions are needed. If they are not TN 
will equal 1 and the instnictions will be skipped. 

Lines 160-190 ask for the number of player's amount. If there is 
only 1, GL will equal 1, and the computer will play against the user. 

Lines 200-210 determine whether or not the instructions are 
needed. If they are not, the program branches to line 510. 

Lines 220-510 display the instructions for play 

Line 520 tests the value of YY (number of players). If YY is 
equal to 1, program branches to line 540. 

Line 530 sends program control to the appropriate lines for 2 or 
more players. 

Lines 540-600 determine who will play first, the user or the 
computer. 

Lines 610-780 let user enter each player's initials. 

Lines 790-800 send program control to the appropriate lines if 
only 1 or 2 are playing. 

Lines 810-890 randomly select players (3 or 4) to determine 
who will play against whom. 

Lines 900-940 display a message for one player. 

Lines 970-1140 display a message indicating who will play 
against whom when 3 people are playing. 

Lines 1200-1300 display a message indicating who will play 
against whom when 4 people are playing. 

Lines 1310-1395 select who will play first and which type of 
playing piece he or she will have. 

Lines 1400-1830 set the graphics for the playing field (board) 
and all of the pieces. They determine the number of pieces and the 
value of each place : is assigned to the top pieces, 99 to the bottom 
pieces, and -99 to blanks. 

Lines 1840-1880, accept player inputs in response to the 
FROM and TO prompts. If FROM (F) is equal to (zero), the player 
has just thrown in the towel, and the program will branch to either 
the termination routine or next player routine. 

Lines 1900-2090 establish the pieces and their locations on the 
playing board. 

Lines 2100-2270 along with lines 2300-2320 are used to move 
the solid pieces. 

Lines 2190-2240 are also used to move the stepped pieces. 
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Lines 2250-2270 are used to redefine the contents of the 
squares that were involved in the FROM and TO movement. 

Line 2275 are used for a possible double (or more) jump. 

Lines 2280-2295 allow the next player or the computer to input 
moves if RR = 3. 

Lines 2400-2660 work much the same as lines 2100-2270 
above, except these are for the stepped pieces. 

Lines 2700-2725 reset any square that has been jumped and 
delete one piece from the player that was jumped. Lines 4000-4090 
are used to determine whether or not the game is over. 

Lines 2730-2770 are used to determine if another jump might 
be possible. For this the program branches to line 2935-3530. If any 
of the conditions are met, the user will be allowed another jump. 

Lines 2900-3530 are for the computer's pieces as well. These 
lines will determine if the computer can jump or just move. If no 
jumps can be made, lines 3700-3900 are used for movement from 
one square to another. If none of the conditions are met following 
the for-next loop beginning at line 3810 and ending at line 3830, the 
computer will terminate the program at line 3340. 

Lines 4100-4480 determine who won and who will play against 
whom in the next game. If all conditions are met, the grand winner is 
printed and the program terminated. 

Lines 4500-4540 prints message if a player is trying to move 
someone's pieces other than his or her own. 

Lines 10000-12030 contain the necessary time loops, the turn 
determination routine, message CANNOT RESPOND if an illegal 
move is entered. 
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HOLD TIME 

This game enables you to make all computer movement stop while 
you try and destroy the computer's piece. All your decisions will 
have to be exact if you plan on doing this. To destroy the computer's 
piece, your lasers must be at the right place at the right time. The 
amount of time you can hold the computer's piece in one location is 
20 seconds. A long time you say? Run the program and see for 
yourself. Note that the IBM version of this program is included in 
Appendix A, and the Apple version in Appendix B. Remember to 
use the proper value for SS in line 295. Refer to page 3. 

Sample Run 

HOLD TIME... 

INSTRUCTIONS? YES 

HOLD TIME.. .A MATTER OF HIGH OR 
LOW POINT TOTALS. THE COMPUTER'S 
CRAFT WILL BLIP ALL AROUND YOUR 
VIDEO, DOWN THE LEFT AND RIGHT 
SIDES WILL BE ASTERISKS. THESE 
ARE YOUR LASERS. AT THE INSTANT 
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xxxxxxxxxxxxxxx 

*wp "SIT 

HOLD TIME = 20 w 
X X- 

X •X- 

* <x> * 

X * 

X X 

H TOTAL POINTS: TIME LAPSE: 30* 

xxxxxxxxxxxx xxxxxxx* 

YOU THINK THE CRAFT IS IN LINE 
WITH THESE, HIT THE 'CLEAR' KEY. 
YOUR LASERS WILL START MOVING 
TOWARD THE CENTER, THE COMPUTER 
CRAFT WILL ALSO CONTINUE TO MOVE 

PRESS ENTER? 

YOU CAN 'HOLD' THE COMPUTERS' 
CRAFT FROM MOVING FOR AN AMOUNT 
OF TIME, ROUGHLY 20 SECONDS. 

YOUR SCORE WILL RANGE FROM 1500 TO 400, DEPEND- 
ING ON WHERE YOU 
DESTROY THE CRAFT (TOP OR BOTTOM 
OF THE VIDEO). THE TIME LIMIT FOR THE 
ENTIRE RUN WILL BE JUST ABOUT 
FIVE MINUTES. THIS WILL BE NOTED 
AT THE LOWER RIGHT OF YOUR VIDEO. 
THE COUNT STARTS AT 30. OH YES, TO 'HOLD' THE COM- 
PUTERS* 

CRAFT, HOLD DOWN THE 'ENTER' 
KEY 

PRESS ENTER TO BEGIN? 

Program Listing 

100 REM PROGRAM TITLE: HOLD TIME 
110 CLS 
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115 CLEAR 350 

120 RANDOM 

125 PRINT"HOLD TIME..." 

130 INPUT" INSTRUCTIONS <Y/N)";Z$ 

135 IF ZS="N" THEN CLS:GOTO 290 

140 PRINT 

145 PRINT"HOLD TIME... A MATTER OF HIGH OR u 

150 PRINT"LOW POINT TOTALS. THE COMPUTER' S" 

155 FRINT"CRAFT WILL BLIP ALL AROUND YOUR" 

160 FRINT"VIDEO. DOWN THE LEFT AND RIGHT" 

165 PRINT"SIDES WILL BE ASTERISKS. THESE" 

170 PRINT" ARE YOUR LASERS. AT THE INSTANT" 

175 PRINT"YOU THINK THE CRAFT IS IN LINE" 

180 PRINT"WITH THESE, HIT THE 'CLEAR' KEY." 

185 PRINT"YOUR LASERS WILL START MOVING" 

190 PRINT"TOWARD THE CENTER- THE COMPUTER" 

195 PRINT"CRAFT WILL ALSO CONTINUE TO MOVE . * 

200 INFUT n FRESS ENTER" ;X$ :CLS: PRINT 

205 PRINT"YOU CAN HOLD THE COMPUTER'S" 

2 10 PRINT"CRAFT FROM MOVING FOR AN AMOUNT" 
215 PRINT"OF TIME, ROUGHLY 20 SECONDS." 
220 PRINT"YOUR SCORE WILL RANGE FROM 1500" 
225 FRINT"TO 400; DEPENDING ON WHERE YOU" 
230 PRINT"DESTROY THE CRAFT (TOP OR BOTTOM" 
235 FRINT"OF THE VIDEO). THE TIME LIMIT FOR 

THE" 

240 PRINT"ENTIRE RUN WILL BE JUST ABOUT" 

245 FRINT"FIVE MINUTES THIS WILL BE NOTED" 

250 PRINT"AT THE LOWER RIGHT OF YOUR VIDEO.' 

255 FRINT"THE COUNT STARTS AT 3 0." 

260 PRINT"OH YES, TO HOLD THE COMPUTER'S" 

265 PRINT"CRAFT, HOLD DOWN THE 'ENTER'" 

270 PRINT"KEY » 

275 INPUT"PRESS ENTER TO BEG IN" ; X $ : CLS 

290 REM CRAFT/SOUND LOCATION 

295 CSs"<X>" :SS=31266 

300 REM OUTER GRAPH I CS / PO INTS 

305 G5=STRING$ (63, 42) :M=474 

3 10 G=0 : PI=16 :PRINT@0 ,0$ ; : PR INT@9 6 , Q$ ; 

315 PRINT@121 , "20" ; ; FOR X = 64 TO 896 STEP 64 

32 FRINT@X,LEFT$ <Q$ , 1) ; 

325 FRINT@X+63 ,LEFT$(Q$ , 1 ) ; : GOTO 460 

330 IF MMO0 GOSUB 355:NEXT ELSE NEXT 

335 FRINT@0,CHR$ (30) ; ;PRINT©960 / CHR$(30) ; 

340 FOR X = 64 TO 896 STEP 64 

34 5 FRINT£X,CHR$ (32) ; : PR INT@X+ 6 3 , CHR$ (32) ; 
350 GOSUB 355 :NEXT:GOSUB 355:GOTO310 

35 5 PRINT@9 5 4,ABS< INT( TT/ 6 ) - 3 ) ; 



159 



3 56 PR I NT@MM, STRINGS <5,32> ; 

36 PRINT@M, C$ ; ; TT=TT+ 1 

365 IF TT>=:1800 THEN 800 

370 MM=M:W=FEEK( 14400) 

375 IF W=l AND G< = 20 THEN G=G+,4:GOSUB 

750 : RETURN 
380 XX=RND<4> .REM GRAFT MOVE 
3 85 ON XX GOTO 390,400,410,420 
390 REM LEFT MOVE 

3 95 M=M-RND(5> : GOTO 4 45 
400 REM RIGHT MOVE 

405 M=M+RND<5> : GOTO 445 

410 REM UP MOVE 

415 M=M-64 :GOTO 445 

42 REM DOWN MOVE 

425 M=M+64:IF FEEK( 1 6 2 58 ) =3 2 GOSUB 670 

430 IF PEEK<i6303>=32 GOSUB 670 

435 IF FEEKC 15426 )=32 GOSUB 670 

440 IF PEEK< 15470 )=32 GOSUB 670 

445 IF M<=66 THEN 420 

450 IF M>=950 THEN 410 

4 5 5 POKE SS , 1 3 : NN^USR < ) : RETURN 
460 REM FIRE 

465 IF X< = 832 THEN W=FEEK ( 1 4 4 ) 

470 PI*FI-1:IF W=0 THEN 330 

475 IF W=2 THEN 485 

48 GOTO 33 

485 REM LASER ADVANCE 

490 IF X>=896 OR X < = 1 2 7 THEN 330 

495 H = X ;H1=:H+ 15360 :H2=H 1 + 63 : UN^UN+ 1 :S2 = 100 

500 IF RP=1 FRINT<»81 ,ABS<R-UN) ; 

505 POKE HI, 32; POKE H2,32:POKE SS,S2 

510 IF FEEKCH1 + 1 ><>32 OR PE EK ( H2 - 1 ) <> 3 2 THEN 53 5 

5 15 Hl*Hl+l :H2=H2~1 ;S2=S2-1 ;NN=USR(0) 
520 POKE HI ,42 : POKE H2 ,42 

525 IF ABS(H2-15360-X>=0 THEN 850 

530 GOSUB 355 ; GOTO 505 

535 REM DIRECT HIT 

540 POKE Hl,42;POKE SS , 1 4 

545 IF FEEKCH2-1 > <> 32 THEN 565 

550 POKE H2 , 32 ;H2=H2-1 

555 POKE H2 , 42 

560 NN=USR( 0) : GOTO 545 

565 REM DELETE 

570 Z=l:FOKE Hi, 32: POKE H2,32 

575 N=M+15360 : Sl-220 

580 POKE N,32:POKE N+1,32 

585 POKE N+2 , 32 
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590 J=RND<5) 

595 IF N+J+64<=16319 THEN 605 

600 GOTO 625 

605 POKE N+J+64, 42 : POKE N+J~64-J,42 

610 FOR 1=1 TO J*1G:NEXT 

615 POKE N+J+64 ,32 : POKE N+J-64-J,32 

62 GOTO 640 

625 POKE N+J-64 , 42 : POKE N+J-64-J,42 

630 FOR 1= TO J*10 ;NEXT 

635 POKE N+J-64 , 32 : POKE NW-64-J,32 

640 IF £<=7 THEN 65 5 

645 POKE SS, 255 :NN=USR<0> 

650 IF RP=0 GOTO 660 ELSE PI =PI +1 : GOTO 665 

655 2=2+1 : POKE SS , S 1 : NN=USR < ) : GOTO 590 

660 PI=PI+1 : X$=X$+"+" 

665 PP=FF+FI*10Q : GOSUB 670:GOTO 850 

670 A$= "TOTAL FO INTS : " : T$ = "TIME LAPSE:" 

675 F = 898 

680 FOR 1=1 TO LEN(A$ ) 

6 85 PRINT@F+4 5 ,MID$(T$,I,1>; 
690 PRINT@F,MID$ < A$ , I , 1 ) ; 
695 F=F+1 ;NEXT 

700 PRINT PP;: IF RF=1 THEN 710 

7 05 IF X$ = " "RETURN 
710 REM RESERVE POWER 
715 R$= n RESERVE POWER:" 
720 F=66 

725 FOR 1=1 TO LEN(R$) 

730 PRINT@F,MID$ <R$ , I , 1 ) ; 

735 F=F+1 :NEXT 

740 IF RF=1 THEN X $ =STR$ ( ABS < R-UN) ) 

745 PRINT X$ j 

750 TI$="HOLD TIME :": REM HOLD TIME 

755 IF FEEKC 15470) <>32 THEN 770 

760 F=110:FOR 1=1 TO LEN(TI$> 

7 65 PRINT@F,MID$ <TI$ , I , 1 > ; : F = F + 1 :NEXT 

770 PRINTS120, INT < ABS < G- 2 > ) ; 

7 75 RETURN 

780 REM TIME REMAINING 

785 IF RP=1 THEN DK=l:GOTO 860 

790 IF TT>=1800 THEN 80 

7 95 GOTO 30 

800 FOR TI=1 TO 1200:NEXT 

805 CLS:R=LEN<X$> 

810 IF R=0 THEN 910 

8 15 PRINT"VERY WELL DONE...." 

820 PRINT"YOU HAVE ";R; "UNITS OF" 

825 PRINT"RESERVE POWER " 
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830 PRINT H PRESS ENTER TO USE"; 

835 INPUT X$ :TT=0 : RP^l : UN=0 

840 CLS 

845 GOTO 300 

850 REN UNITS DELETE (RESERVE) 

855 IF RP=0 THEN 330 

860 IF UN>=R THEN 875 

865 IF DK=0 THEN 330 

870 DK=0:GOTO 790 

875 REN FINISH 

880 FOR TI=1 TO 1200:NEXT 

885 CLS 

890 PRINT"RESERVE POWER EXHAUSTED.. . . " 

895 PRINT M TOTAL POINTS ACCUMULATED : " ; PF 

90 PRINT 

9 05 GOTO 930 

910 PRINT" YOU HAVE DESTROYED NOTHING." 

9 15 PRINT" YOU HAVE NO RESERVE POWER." 

92 PRINT 

9 25 GOTO 8 95 

93 PRINT 

935 PRINT"END OF RUN," 
990 END 

Variables and Strings 

C$ - Computer's craft 

SS - Sound location (machine routine) 

Q$ - Outer graphics, asterisks 

M,MM - Location of computer craft 

PI - Points, total times 100 

G - Hold time— holding of computer craft 

TT - Amount of playing time 

W - Key closure (PEEK) 

XX - Random craft movement 

NN - USR Call for sound output 

H - Location of asterisk when laser fired 

H1,H2 - Laser advanced toward center then outward 

S2 - Also for sound output 

UN - Reserve units used, not valid until RP=1 

RP - On reserve power 

Z - General, for flashing of destroyed craft 

N - Location of computer craft when destroyed 

J - A random amount used to flash asterisks above or below craft 

X$ - Reserve units, if user's craft destroyed 
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PP - Total outstanding points 
F - Print @ locations, messages 
A$,T$,R$, & TI$ - Messages 
R - Reserve units, total 
DK - Finish of game 

Explanation of the Program Lines 

Line 115 clears 350 bytes of memory for string storage. 

Lines 125-275 display the instructions for playing. 

Line 295 sets C$ to the computer's craft and initializes the 
variable SS for the sound routine. 

Lines 300-430 print the graphics near the edges of the screen 
and control the movement of the computer's craft. The craft is 
moved a random amount distance, determined between lines 370 
and 415. Line 366 tests whether the enter key is being held and 
variable G is less than or equal to 20. Variable TT (line 362 is 
checked to see if the time has expired for the run. The peek 
statements in lines 415-418 are used for the print messages. If the 
computer's craft happens to blank out any letters of these messages, 
they will be reprinted as soon as possible. Lines 420 and 425 keep 
the computer's craft within limits. 

Line 430 outputs a beep sound each time the craft moves. 

Lines 500-565 enable the user to fire the laser. Here the 
asterisks are moved toward the center of the video. If a hit is 
detected (line 545) the program branches to line 570. Line 565 
continues the movement of the computer's craft, if the Enter key is 
not being held down. Line 560 tests the value of H2 for stopping the 
laser attack. 

Lines 570-676 and 685 detect or destroy the craft and flashes 
asterisks at its location. 

Line 680 tests whether or not user is on reserve power. 

Lines 690-695 increase the variable PI by 1 and then multiply 
that amount by 100 to determine your score (line 695). X$ in line 
690 is then increased by one + (plus sign) to indicate added units of 
reserve power. 

Lines 700-795 print messages and amounts. 

Lines 800-830 again test the value TT to determine whether or 
not the game is over. 

Lines 835-875 tells the user how many units of reserve power 
he or she has. (The player receives one unit for each computer craft 
destroyed). Then the user presses the enter key to begin using the 
reserve laser power. 
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Lines 900-920 test the amount of UN (reserve power) to see if 
it has all been used. 

Lines 925-990 display the final message and the total score. 
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DANGEROUS AFFAIR 

All of your life you've wanted to be a spy, a double agent that would 
help his country in time of need. Here's your chance. Through 
messages you will relay, the computer will test to see if you would 
actually make a good spy. Some of the messages will be straight 
while others will be coded. There are agents (besides you) that will 
accidently forget the message you've given them, so try to re- 
member each... very, very well. Remember to use the proper value 
for L in line 250. Refer to page 3. 

Sample Run 

» DANGEROUS AFFAIR « 

SEE OUTLINE? MAYBE 

TRY A YES OR A NO ANSWER. 

SEE OUTLINE? YES 

SO YOU WANT TO BE A SPY AND YOU 

THINK YOU'D BE A GOOD ONE AT 



165 



THAT? THIS PROGRAM WILL SOON 

LET YOU KNOW. YOU MUST FOLLOW 

AND PASS ALONG ANY INSTRUCTIONS THAT 

WILL BE GIVEN TO YOU; SOME 

OF THEM WILL BE CODED, WHICH 

MEANS YOU'LL HAVE TO BREAK 

THE CODE BEFORE PASSING THE 

INFORMATION GIVEN. 

REMEMBER TO PASS INFORMATION 

EXACTLY AS IT IS GIVEN TO YOU 

(EXCEPT WHERE CODED), 

FIRST NAME? 005 

PASS THIS ALONG: 
.MP 4 TA TS NIAM OT OG 
WHAT WAS THAT MESSAGE? 005 
PLEASE REPEAT 

PASS THIS ALONG: 
NADES KCALB A Nl TEG 

WHAT WAS THAT MESSAGE? 005 
I MISSED PART OF IT 

PASS THIS ALONG: 

ANSWER THE PHONE AT 4TH ST. 

WHAT WAS THAT MESSAGE? 005 

ANSWER A PHONE AT 4TH STREET 

PASS THIS ALONG: 

GO TO THE 12TH ST. BRIDGE 

WHAT WAS THAT MESSAGE? 005 
GO TO A BRIDGE AT 12TH STREET 

PASS THIS ALONG: 

NOITCES F/D ROF ELIF AERA TEG 

WHAT WAS THAT MESSAGE? 005 
SOMETHING ABOUT A NOTICE? 
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f START J 




OUTPUT 

CODED 

MESSAGE 



INPUT M$ 




WM = WM + 1 — | 



CLOSING 
MESSAGE 



f STOP j 



INPUT PAST 
MESSAGE 



Flowchart for Dangerous Affair > 
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AGENT 28 DID NOT RECEIVE 

MESSAGE # 5, WHAT WAS 

IT, 005? 

YOU TELL ME 

PASS THIS ALONG: 

MEET HARRY AT 1ST ST. BAR 

WHAT WAS THAT MESSAGE? 005 
MEET HARRY AT BAR 

PASS THIS ALONG: 
YRRAH FO ESOPSID 

WHAT WAS THAT MESSAGE? 005 
i FORGOT REPEAT O.K.? 

STOP 

This was not a complete run. 

Program Listing 

10 REM PROGRAM TITLE: DANGEROUS AFFAIR 

2 RANDOM: CLS 

30 CLEAR 500:DIM M$ < 2 1 > 

50 PRINT")) DANGEROUS AFFAIR < < " 

60 PRINT 

70 INFUT"SEE OUTLINE" ;X$ 

80 IF X$=r"YES" THEN 120 

90 IF X$="NO" THEN PRINT:GOTO 240 

100 FRINT"TRY A YES OR A NO ANSWER." 

110 GOTO 6 

120 PRINT"SO YOU WANT TO BE A SPY AND YOU" 

130 PRINT"THINK YOU'D BE A GOOD ONE AT" 

140 PRINT"THAT? THIS PROGRAM WILL SOON" 

150 PRINT"LET YOU KNOW. YOU MUST FOLLOW" 

160 PRINT"AND PASS ALONG ANY INSTRUCTIONS 

THAT" 

170 PRINT"WILL BE GIVEN TO YOU; SOME" 

180 PRINT"OF THEM WILL BE CODED, WHICH" 

190 PRINT"MEANS YOU'LL HAVE TO BREAK" 

200 PRINT"THE CODE BEFORE PASSING THE" 

210 PRINT" INFORMATION GIVEN." 

220 PRINT"REMEMBER TO PASS INFORMATION" 
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230 
235 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 



PRINT"EXACTLY 
PRINT **<EXCEFT 



AS IT 
WHERE 



IS GIVEN 
CODED) 



TO YOU" 



;NS 



< INFORMATION) 



INFUT H FIRST NAME 1 

CLS:M=1 :L = 31 266 

REM GET MESSAGES 

FOR 1=1 TO 2 

READ M$ < I ) :NEXT 

GO TO MAIN ST. AT 4 P.M. 
GET XH A BLACK SEDAN 
ANSWER THE PHONE AT 4TH ST. 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



BRIDGE 
D/F SECTION 
ST. BAR 



GO TO THE 12TH ST 

GET AREA FILE FOR 

MEET HARRY AT 1ST 

DISPOSE OF HARRY 

GIVE THE D/F FILE TO INTER C 

RETURN TO MAIN ST. AT 11 P.M. 

GET IN BLUE/WHITE HARDTOP 

RECEIVE CODED MESSAGE FROM DRIVER 

GIVE MESSAGE TO RHONDA 

DUMP HER THEN STEAL HER CAR 

DRIVE IT TO 31ST ST EXIT 

DESTROY THE CAR 

GO TO LAST FLIGHT AIRPORT 

BOARD THE 3 A.M. FLIGHT 

LEAVE PLANE AT LYTERA AIRPORT 

GIVE CODED MESSAGE TO MAN AT GATE 

RETURN TO PLANE AT 3 F.M 

FRINT n FASS THIS ALONG:" 

FOR Y=l TO 2 

CR=RND<3):IF CR=3 THEN 590 

NEXT: 1=1 : J=LEN<M$<M) ) 

PRINT MID$<M$<M) ,1,1); 

POKE L,ASC(MID$ (M$<M) , I , 1 ) )+45 

A=USR(0) 

1 = 1 + 1 

IF I>J THEN 700 

GOTO 5 30 

REM CODE IT 

FOR Y=l TO 2:CC=RND<2) 

NEXT 

I=LEN(MS (M) ) : J=l 

IF CC=2 THEN 690 

PRINT MID$ <M$ (M) ,1,1); 

POKE L,ASC(MID$<M$(M),I,i))+60 

A=USR<0) 

1 = 1-1 : IF 1 = THEN 700 

GOTO 630 

K$=STR$ <ASC<MID$<M$<M),I,1))) 
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695 PRINT K$; : GOTO 6 5 

700 REM PAUSE 

710 IF CC=1 OR CC=2 THEN 800 

720 FOR W=l TO 400:NEXT:CLS 

730 PRINT"WHAT WAS THAT MESSAGE " ;N$ 

740 INPUT M$ 

750 IF M$OM$(M) THEN WM=WM+ 1 

760 M=M+1 

770 IF M=2i THEN 1000 

780 FOR W=l TO 1000:NEXT 

790 CLS:GOTO 850 

800 REM LONGER PAUSE 

810 FOR W=l TO 2500:NEXT 

820 CR=0 :CC=0 : GOTO 720 

850 REM DID NOT RECEIVE OR FORGOTTEN 

860 IF M>=6 AND M<p16 THEN 880 

8 70 GOTO 49 
880 Y=RND<2> 

890 IF Y=l THEN 490 

900 Y=RND<M> : AG=RND( 100 > 

910 PRINT M AGENT M ; AG; "DID NOT RECEIVE" 

920 FEINT M KES5AGE # " ; Y ; " , WHAT WAS 1 * 

930 PRINT" IT " ;N$ 

940 INPUT M$ 

9 50 IF MSOM$(Y) THEN WM=WM+ 1 
960 CLS:GOTO 490 

10 00 REM END 

1010 IF WM>=10 THEN 1070 

1020 PRINT"YOU , VE DONE ALRIGHT ";N$ 

1030 PRINT"YOU NOW CAN BECOME A" 

1040 PRINT"COMPUTER SPY, AND" 

1050 FRZNT"FASS MESSAGES..." 

10 60 GOTO 1130 

1070 PRINT"GOOD GRIEF, TURKEY M ! " 

1080 PRINT M YOU FA I LED" ; WM ; "OF THE";M-1 

1090 PRINT"MESSAGES GIVEN TO YOU." 

1100 PRINT"TO YOU THIS WAS NOT A" 

1110 PRINT"DANGEROUS AFFAIR; IT WAS" 

1120 PRINT"A LOST MISSION M!" 

1130 PRINT 

1140 PRINT"END OF PROGRAM..." 

1150 END 

Variables and Strings 

N$ - First name of user 
M$(I) - Information messages 
M - Counter, messages given 
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L - Machine language address 

CR,CC - Used to code message 

J - Length of M$(M), which is the message if the message is not 

coded. 
If the message is coded, I is the Length of M$(M) 
M$ - User input of message 
WM - Wrong message entered 

Explanation of the Program Lines 

Line 30 clears 500 bytes of memory for string storage and 
dimensions M$. 

Lines 50-235 display the instructions, if they are required. 

Line 240 inputs the user's first name. 

Line 250 clears the video and initializes the variables M and L. 

Lines 260-280 read the data elements into the M$ array. 

Line 490 begins the actual entries. 

Lines 500-510 branch to the message encoding routine if CR is 
equal to 3. 

Line 520 initializes the variables I and J. 

Lines 530-580 display the message in uncoded form and pro- 
duce a sound for each letter. 

Lines 590-695 output the messages in simple coded form (if 
CR =3). The message will be printed in one of two ways, depending 
on the value of CC. 

Lines 700-720 allow a pause before the video is cleared. A 
longer pause is allowed if message was printed in code. 

Lines 730-790 allow the user to pass the message he or she was 
just given. If the message is incorrect, the variable WM will be 
increased by 1. If all messages have been used (M = 21), the pro- 
gram branches to line 1000. 

Lines 850-960 further test the user's memory by asking him to 
repeat earlier messages, if M>= 6, M<= 16, and Y (random is 
equal to 2. Again, if the response is incorrect, counter WM will be 
increased by 1. 

Lines 1000-1150 print a final message and terminate the pro- 
gram. 
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OTKO CT3& 07 

PENNIES OR DOLLARS 

Now here is the opportunity you've been longing for: you can get 
rich, starting with only $50.00. Use your head when you make each 
loan or investment, and you'll be loaded with computer money. Fail, 
and you'll end up with less than you started with. You'll be surprised 
at how fast time flies when the loans start getting paid back. And of 
course, there are loans that will be defaulted on and investments 
that will bomb and do nothing else ; watch out for these. 

Sample Run 

$$$ PENNIES OR DOLLARS $$$ 

ALL YOU HAVE TO YOUR NAME IS 

$50.00 DOLLARS. BUT YOU 
HAVE COME UP WITH A SCHEME TO 
MAKE SOME GOOD MONEY. YOU HAVE 
DECIDED TO MAKE LOANS AND TO 
INVEST IN SOME PROJECTS. WHO- 
EVER YOU MAKE A LOAN TO WILL 
NATURALLY HAVE TO PAY IT BACK 
WITH INTEREST. AND WHATEVER 
YOU INVEST IN COULD MAKE YOU 
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LOSS 
OR 

RETURN 



f START J 




CHART 
CURRENT AMOUNTS 




LOAN RETURN ~j 




<^ 1 = 1 




-<q invest 


^Y 




-| D = D - IV H 


/n 




ML 




(N 






I rr< loan 













BROKE 

MESSAGE 




> Y 








i 




TOO RICH TO 
CONTINUE 

MESSAGE 




>y 





J 



Flowchart for Pennies or Dollars. 
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A MINT.. .IF YOU MAKE 
THE RIGHT INVESTMENTS. 

PRESS ENTER? 

YOUR INITIALS? OC, 

D.C. YOU'LL HAVE TO BE CAREFUL 
HOW YOU LOAN MONEY 
OR HOW MUCH YOU INVEST. DONT 
GET GREEDY, OR YOU'LL PROBABLY 
LOSE EVERYTHING. 

PRESS ENTER TO BEGIN YOUR VENTURE? 
Program Listing 

10 REM PROGRAM TITLE: 

20 REM PENNIES OR DOLLARS 

30 CLEAR 2Q0:CLS:DIM TA< 20 ) , LL ( 2 ) 

40 FRINT M S$§ PENNIES OR DOLLARS • * $ " 

50 PRINT 

60 INPUT" INSTRUCTIONS REQUIRED (Y/N>";X$ 

70 D = 5 rDO^" $$#«#»#.##" : RANDOM 

80 IF X$="N" THEN 220 

90 PRINT M ALL YOU HAVE TO YOUR NAME IS" 

95 PRINT USING D0 ;D; 

100 PRINT" DOLLARS, BUT YOU" 

110 FRINT"HAVE COME UP WITH A SCHEME TO" 

120 PRINT"MAKE SOME GOOD MONEY. YOU HAVE" 

130 PRINT n DECIDED TO MAKE LOANS AND TO" 

140 PRINT" INVEST IN SOME PROJECTS. WHO- 11 

150 PRINT"EVER YOU MAKE A LOAN TO WILL" 

160 PRINT"NATURALLY HAVE TO PAY IT BACK" 

170 PRINT"WITH INTEREST, AND WHATEVER" 

180 PRINT"YOU INVEST IN COULD MAKE YOU" 

190 PRINT"A MINT,., IF YOU MAKE" 

200 PRINT N THE RIGHT INVESTMENTS." 

210 INPUT H PRESS ENTER" ; X $: CLS 

2 20 INPUT" YOUR INITIALS" ; 1$ 

225 IF 1$="" FRINT M PLEASE, " ; : GOTO 220 

230 PRINT 1$;" YOU'LL HAVE TO BE CAREFUL" 

240 FRINT"HT)W YOU LOAN MONEY (AMOUNTS)" 

250 PRINT"OR HOW MUCH YOU INVEST. DON'T" 

260 FRINT"GET GREEDY, OR YOU'LL PROBABLY" 
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270 
280 
290 

300 
310 
320 
325 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
565 
570 
580 
590 
600 
610 
620 
630 
640 
645 
650 
660 
665 
670 
675 
680 



FRINT"LOSE EVERYTHING." 

FRINT:DIM AI(100>,AR<20),AL<20),LA(20> 

INPUT"PRESS ENTER TO BEGIN YOUR 

VENTURE" ;X$ 

CLS:R=1 :V=129: VV=0 

GOSUB 320 :GOTO 710 

REM CHART 

IF 2T«1 THEN 540 

FOR X = TO 127 

SET<X,4) :NEXT: 1=1 :ZT=1 

GOSUB 430 

IF X<>4 THEN X = X + 7 

FOR LT=1 TO tEN(AS) 

PRINT TAB(X) MID$<A$,LT, 1) ; 

X = X+1 :NEXT 

1 = 1 + 1 

IF 1=6 THEN 54 

GOTO 350 

ON I GOTO 440,460,480,500,520 

A$="ASSETS" 

X = 4 : RETURN 

A$= M LOANS M 

RETURN 

A$= M INVESTED" 

RETURN 

A$="RETURNED M 

RETURN 

A$= M LOST" 

RETURN 

IF TH=1 

TA<R>=D 

LMR>=L 

IF GK=1 

IF MOO 

X = V: 1=1 



THEN 58 0: REM AMOUNTS 



LA(R)=LA 

OR IJ=1 THEN RETURN 

RETURN 

IV=0 
GOSUB 645 

PRINT@X+1 , USING D$;T; 
X=X+13:IF X>=959 THEN GOTO 1660 
1 = 1 + 1 

IF I>5 RETURN 
GOTO 590 

REM AMOUNT FOR T 
ON I GOTO 660,670,680 
IF R=13 AND M=14 THEN 
T=TA(R) : RETURN 
IF R=13 AND M=14 
T=LL<R> .RETURN 
T=AI <R) :RETURN 



690, 700 
T=TA(R+1 ) 



RETURN 



THEN T=LL<R+1 >: RETURN 
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690 T=AR(R) : RETURN 

700 T=AL(R> : RETURN 

710 IF D<=6 AND PR=0 THEN 1150 

715 FRINT@960, "PRESS ENTER"; 

720 ZT=0: INPUT X$:IF GK= 1 THEN 1680 

721 CLS:PR=0 

725 IF ZZ=1 GOSUB 1220 ELSE IF ZZ = 2 GDSUB 1380 

730 REM LOAN/ INVESTMENT 

740 I=RND<2) 

7 50 ON I GOTO 75 5 , 14 30 

755 FRINT"YOUR ASSETS ARE NOW: "; 

760 PRINT TAB<23)USING D$;D 

765 PRINT"A LOAN FOR APPROVAL " ; I S ; " : " 

770 L=INT<D-RND< 10) ) : IF D<=5 THEN 2100 

78 IF L< = 3 THEN 77 

790 PRINT"LOAN AMOUNT : " ; TAB < 2 ) US ING DS;L 

80 ?$="# . #% H : LA=L : GOSUB 1280 

810 PRINT"PERIODIC RATE: " ; 

820 PRINT TAB(25)USING P$;PE 

830 P$s"## . #%" 

840 PRINT"ANNUAL RATE: " ; 

850 PRINT TAC(24)USING F$;FE*12 

86 REM LENGTH OF PAYBACK (MONTHS) 

870 IF L>=1 AND L<=100 THEN FB=12 

880 IF L>«101 AND L < = 1 THEN PB=24 

890 IF L>=1001 AND L<=9000 THEN PB=36 

900 IF L>=s9G01 AND L< = 19000 THEN FB*48 

910 IF L>=19001 THEN PB=240 

920 REM AMT. BY PERCENT 

930 FC=LftPB/100:L=L+FC 

940 PRINT"FINANCE CHARGES; 

950 PRINT TAB(20)USING D$ ; FC 

960 PRINT"TOTAL OF LOAN:" 

970 PRINT TAB(20)USING D$ 

98 PR I NT" PAYMENTS: " ; 

990 PRINT TAB(20)USING D$;L/FB 

1000 PRINT 

1010 INFUT"APFROVE (Y/N)";A$ 

1020 IF A$e"Y" THEN 1040 

1030 GOTO 721 

1040 D=D»LA:IF HJ=1 THEN 1800 

1050 CLS:IF HJ=0 THEN R=R+ 1 : M=R : GOSUB 540 

1060 M=R: R=l : TH= 1 

1070 GOSUB 320 

108 IF R<M THEN 1100 

109 GOTO 1120 
1100 R=R+1 :V=V+64 
1110 GOTO 10 70 
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1 120 REM PAYBACK 

1130 IF D<=<* THEN 1 150 

1140 V=129 :TH=0 : GOTO 710 

1150 REM LOAN AMOUNT 

1 160 FOR U=l TO M 

1170 IF LL(U><>0 THEN 1320 

1175 NEXT:FR=1 

1180 IF GK=1 RETURN ELSE GOTO 1140 

1190 D=D+LL(U> : AR=AR+LL < U ) : GOSUB 2300 

1200 LL<U)=0 :LA(U)=0 :L=0 : IF GK=1 THEN 1220 

1205 R=R+l;GOSUB 550:GOSUB 1920 

1210 Z2=l :GOTO 1140 

1220 FRINT:REM RETURNED 

1230 FRINT"LOAN # " ; RND ( 1 ) ; "HAS BEEN" 

1240 PRINT"PAID IN FULL- AMOUNT " ; 

1245 PRINT USING D$ ; AR 

1250 FRINT"TOTAL ASSETS NOW:";USING D$;D 

1260 FOR W=l TO 2000:NEXT 

12 70 AR(R-1 )=AR: AR=0 : ZZ = : CLS: RETURN 
1280 REM PERCENT 

1290 FE=1 

1300 FE=FE+RNDC „ 9) 

1310 RETURN 

13 20 REM AMT LOST 
1330 LK=RND<4> 

1340 IF LK=1 OR LK=4 

1345 IF D- LA(U) < = 6 AND 

1348 IF U=13 THEN U= 1 4 

1350 D=D-LA(U) : AL= AL +L A < U > 

1360 LL(U)=0:LA<U)=0:L=0:IF 

1365 R=R-f 1 :GOSUB 550 

1370 ZZ=2:GOTO 1130 

1380 FRINT.REM LOST 

1390 FRINT"LOAN # " ; RND < 1 ) ; "HAS BEEN" 

1400 PRINT"DECLARED DEFAULT, SORRY." 

1410 PRINT"AMOUNT LOST : " ; US I NG D$;AL 

142 GOTO 1250 

1430 REM INVESTMENT 

1431 IF VV>=101 THEN GOSUB 2200:GOTO 750 

1432 IF D<=15 OR R<=2 THEN 1=1: GOTO 750 
1435 PRINT"A POSSIBLE INVESTMENT. . . " 
1440 IV=RND(5000) : IF IV>D+5 THEN 1440 

1445 IF D-IV<«10 THEN I = 1 : I V* : CLS : GOTO 750 

1450 PRINT"YOU CAN NOV MAKE AN INVESTMENT" 

1455 IF HJal THEN 15 10 

1460 PRINT"IF AND WHEN IT PAYS OFF YOU" 

1470 PRINT"WILL RECEIVE A % FOR EVERY" 

1480 PRINT"LOAN YOU MAKE. IF IT DOES NOT" 



THEN 1190 
TF=0 THEN 



11 90 



GK=1 THEN 1380 
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1490 FRINT"PAY OFF YOU WILL tOSE A %" 

1500 FRINT"WITH EVERY LOAN YOU MAKE." 

1505 PRINT" (PERCENT BASED ON CURRENT RATES) 

15 10 PRINT" INVESTMENT #";RND<500> 

1520 PRINT"AMOUNT NEEDED :*'; US ING DS;IV 

15 30 PRINT 

1540 INPUT 1 ' INVEST (Y/N) " ;A$ 

1550 IF A$="Y" THEN VV:=VV+ 1 : GOTO 1565 

1560 CLS: 1=1 : IV=0 : GOTO 750 

1565 IF VV^lOl THEN 1431 

1570 D=D-IV 

1575 AI <VV)=IV:HJ=1 

1580 TA(R)=D: GOTO 1560 

1590 REN RESET INVEST AMOUNTS 

1600 AR=0 : AL = Q 

16 10 GOTO 10 50 

1660 REM RESET VARIABLES 

1670 V=129 : X»V: GK«1 : GOTO 715 

1680 CLS :D=TA(R+1 > : FOR U= 1 TO M 

1690 IF LL(U)O0 THEN 1710 

1700 GOTO 1720 

17 10 GOSUB 1160 
1720 LL<U)=0 : AR<U)=0 

1730 AL<U>=0 : LA(U>=0 :NEXT 

1740 R=l:GOSUB 550:GOSUB 1910 

1750 GK«0 :TH=0 :R«1 :M=Q : GOTO 721 

1800 REM INVESTMENT PER % 

1810 IJ*l:FOR U*l TO M:LK«=RND(6) 

1820 PB«(AI <U) /PEW 5 

1830 IF AI(U)O0 THEN 1850 

1840 NEXT: IJ«0 : R = R+1 : GOSUB 1 9 1 ; GOTO 1590 

1850 IF LK=1 OR LK=3 OR LK=6 THEN 1880 

1860 D«D+PB: AR=PB: AR(R>»AR 

1870 GOSUB 2300:GOTO 1890 

1880 D«D-PB:AL=FB:AL(R)»AL 

1890 TACR+1 >=D:GOSUB 560 

19 00 GOTO 18 40 

1910 REM AMOUNT TO TRUST FUND 

1915 IF TFO0 FRINT M PROCESSING TRUST FUND. 

1920 T$=" $$##*#,######*.##" 

1925 IF D>*25000 THEN 1940 

1930 IF TFO0 THEN 1955 ELSE RETURN 

1940 TF«TF+1000 :D=D-1000 : PM= I 

1950 TDoTD+1000 : GOTO 1925 

1955 TA<R+1)=D:IF PM«0 OR RF*1 RETURN 

1960 FRINT"PROCESSED TO FUND ";USING T$;TD 

1965 FRINT"TOTAL AMOUNT OF "; USING T$;TF 

1970 PRINT M IS NOW IN A TRUST FUND" 
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1980 PRINT"FOR YOUR USE " ; I « ; M . H 

1990 FOR W»i TO 1 : HE XT : FM=0 : TD» : RETURN 

2000 REM BUSTED 

20 10 PRINT: D$ -"*$##. ##" 

2020 FRINT"SORRY, YOUR LOANS OR INVESTMENTS " 

2030 FRINT"DID NOT FAY OFF FOR YOU " ; I $ 

2040 PRINT"YOUR TOTAL ASSETS ARE TOO LOW" 

2050 FRINT"TO CONTINUE ( " ; 

2060 PRINT USING D$ ; D ;: PRINT" > , SORRY." 

2070 PRINT: PR INT"TERMINATI ON OF RUN..." 

2080 END 

2 100 REM TRUST FUND RETURN 

21 10 IF TFO0 THEN 2130 
2 120 GOTO 2000 

2130 D*D+TF:TF«0 ;RF«1 : GOSUB 1920 

2 140 PRINT 

2 150 PR INT" AN AMOUNT OF "; USING DS;D 

2 160 PRINT" IS NOW YOUR TOTAL ASSETS," 

2 170 PRINT"DRAWN FROM THE TRUST FUND." 

2180 GOSUB 1965 

2190 TA<R)«*D:RF*s0 : GOTO 715 

2200 REM NO MORE INVESTMENTS 

22 10 PRINT 

2220 PRINT"NO MORE INVESTMENTS CAN BE" 

2230 PRINT"MADE NOW ";I$;" SORRY." 

2240 FOR W=l TO 2000:NEXT 

2250 1=1 : RETURN 

2300 REM ASSETS ENOUGH TO RETIRE 

2310 IF D>=9E+07 THEN 2330 

232 RETURN 

2330 PRINT: IF T$=" M THEN 2410 

2340 PRINT"YOUR TOTAL ASSETS ARE NOW ENOUGH" 

2350 PRINT"FOR YOU TO RETIRE " ; I $ ; " . " 

2360 PRINT"YOU HAVE A GRAND TOTAL OF "; 

2370 PRINT USING TS ;D 

2 38 PRINT 

2390 PRINT"THIS PROGRAM MUST BE TERMINATED." 

2400 FRINT:GOTO 2070 

2410 T$=" $$####,###, ### . ##" 

2420 GOTO 2340 

Variables and Strings 

TA(N) - Total assets 

LL(N) - Loans approved 

AI(N) - Amount invested 

AR(N) - Amount returned from the loan or investment 

AL(N) ~ Amount lost 
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LA(N) - Loan amount not including interest 
D - Dollar amount for TA(N) 
D$ & T$ - For printing amounts 
1$ - User's initials 

R & M - For total amount of assets, loans, and returns 
These variables go no higher than 13 
W - For Print @ areas 
W - For total investments up to 100 (AI(N) 
TH - For print of amounts only 

GK & U - For return of GOSUB, after amounts have been adjusted 
M - For a total of R, print of amounts up to M 
IV - Random investment amount 
X - For Print @ locations of amounts 
ZZ - For messages 

LA - Loan amount before interest is tacked on 
L - Total loan amount 
PE - Interest rates 
PB - Payback in months 

LK - Random number selector for return or loss of loan or invest- 
ment 
TF - Trust fund 

Explanation of the Program Lines 

Lines 60-270 display the instructions, if needed, and asks for 
the user's initials. 

Line 300 initializes 3 variables. 

Lines 300-700 prints the current chart, which shows the user's 
total assets, loans, returns, etc. 

Line 710 branches to line 1150 for a loan return if D (amount in 
assets) is less than or equal to $6.00. 

Line 720 branches to line 1680 for all loan returns if video has 
been filled (R=13). At this point, some borrowers could default on 
their loans. 

Line 725 branches to the appropriate print messages for loans 
returned (ZZ=1) or loans lost (ZZ= 2). 

Lines 730-1010 selects and prints a loan amount to be approved 
or disapproved If 1=1. If 1= 2, an investment opportunity is offered 
(line 1430). 

Lines 1040-1110, deduct the amount of the loan from the user's 
total assets and chart the returns. 

Lines 1120-1210 control the repayment of a loan if LK is equal 
to 1 or 4. If it is not (LK= 2 or LK= 3), the loan will be declared 
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default. Only the principal of the loan will be lost at this point (lines 
1335-1420). 

Lines 1280-1310 select a random percent for the finance 
charges. 

Lines 1430-1580 select an investment amount (random) if 
counter VV (total investments) is less than or equal to 100. This 
investment amount (if approved) will be deducted from the user's 
total assets, and HJ will then be equal to 1. Each time a loan is made 
(and HJ=1), all investments from 1 to M (total loans) will either 
bring a return or a loss, depending on a random integer, LK in lines 
1800-1900. 

Lines 1910-1990 place an amount in a trust fund for future use if 
D (total assets) is greater than or equal to 25E+ 03. 

Lines 2000-2080 terminate the program if all loans have been 
returned, the trust fund is all used, and D<= 5 ($5.00). 

Lines 2100-2190 withdraw an amount from the trust fund and 
adds it to the total assets when needed. 

Lines 2200-2250 display a message that no more investments 
can be made (W>=101). 

Lines 2300-2420 terminate the program if D is greater than or 
equal to 9E+07. 
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BE PREPARED (PART 1) 

Where is part II you say? Some things must be left for the future, 
and besides, if you're reading this, you haven't made it through part I 
yet! At any rate, you are located somewhere in outer space. There 
are four tubes you must propel your vessels into. Your vessels will 
move continuously. You will use numeral keys to propel them into 
these tubes. The first numeral keys that will correctly propel the 
vessel will be 1 and 2. Each time the vessel makes a cycle (left to 
right and back to the left) the computer will increase the highest 
numeral you must press by 1 (i.e., 1-2,1-3,1-4, etc., up to 1-9). 
This means that you will have to guess which numeral will propel 
the vessel into the tube. Only the right one will do the trick. Refer to 
pages 1-3 for information on the sound routine. Note that the IBM 
version of this program is included in Appendix A, and the Apple 
version in Appendix B. 

Sample Run 

BE PREPARED (PART I) 

IF YOU HAVEN'T DONE SO, READ AND 
FOLLOW ALL INSTRUCTIONS FOR PLAY. 
YOU MUST UNDERSTAND EVERYTHING. 

INSTRUCTIONS? YES 

THIS GAME TAKES 

PLACE IN A DISTANT OUTER SPACE 
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N<s 


INSTRUCTIONS 




PRINT 
INSTRUCTIONS 
















SET 
VARIABLES 



SET GRAPHICS 
FOR PORTS 



MOVEMENT OF 
VESSEL 




MESSAGE OUT 

OF FUEL/ 

DESTROYED 




MOVE VESSEL 
RIGHT 




DOCKED 



DESTROYED 



FINAL 
MESSAGE 



-( STOP J 



Flowchart for Be Prepared (Part I). 
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FUEL REMAINING: 21 TONS 

LOCATION. WHAT YOU WILL SEE IS 

FOUR TUBES; THE TOPS ARE CLOSED 

WHILE THE BOTTOMS OPEN FOR ENTRY. 

WILL BE LOCATED AT 

THE BOTTOM OF THE TUBES, IN THE 

FORM OF AN ASTERISK. IT WILL BE MOVED 

CONTINUOUSLY FROM 

LEFT TO RIGHT. NUMERAL KEYS 

1-2 WILL PROPEL YOUR CRAFT 

INSIDE A TUBE, BUT YOU MUST 

PRESS ENTER? 

DECIDE WHICH KEY WILL DO THE 
JOB. ONLY ONE NUMERAL WILL 
WORK, AND THE COMPUTER WILL 
INCREASE THE MAXIMUM VALUE WITH EACH 
CYCLE. I.E., 1-3, 1-4, ETC. YOU HAVE 
20 VESSELS TO DOCK, ONE OTHER 
THING THAT CAN STOP YOU IS THE 
AMOUNT OF FUEL REMAINING (PER 
VESSEL. ONLY IF YOU UNDERSTAND 
ALL INSTRUCTIONS, PRESS ENTER TO 
DOCK THE FIRST VESSEL? 



Program Listing 










10 


REM PROGRAM TITLE: 


BE PREPAREE 


> (PART I 


20 


CLS: RANDOM 
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70 PRINT" YOU MUST UNDERSTAND EVERYTHING." 

80 PRINT 

9 I NPUT" INSTRUCTI ONS " ; Q $ 

100 IF MID$ <Q$ ,2, 1) <> "E" THEN 400 

110 PRINT 

120 FRINT"THIS GAME TAKES" 

130 PRINT"PLACE IN A DISTANT OUTER SPACE" 

140 FRINT"LOCATION. WHAT YOU WILL SEE IS" 

150 PRINT"FOUR TUBES; THE TOPS ARE CLOSED" 

160 PRINT"WHILE THE BOTTOMS WILL BE OPENED" 

170 PRINT"FOR ENTRY." 

180 PRINT"YOUR VESSEL WILL BE LOCATED AT" 

190 PRINT"THE BOTTOM OF THE TUBES, IN THE" 

200 PRINT"FORM OF AN ASTERISK. IT WILL MOVE" 

210 FRINT"CONTINIOUSLY FROM" 

220 PRINT"LEFT TO RIGHT. NUMERAL KEYS" 

230 PRINT"l-2 WILL PROPEL YOUR CRAFT" 

240 PRINT"INSIDE A TUBE, BUT YOU MUST" 

25 PRINT 

260 INPUT"KEY ENTER" ;X 

270 CLS 

280 PRINT"DECIDE WHICH KEY WILL DO THE" 

290 PRINT" JOB ONLY ONE NUMERAL WILL" 

300 FRINT"WORK, AND THE COMPUTER WILL" 

310 FRINT"INCREASE THE MAXIMUM VALUE 

WITH EACH" 

32 PR INT" CYCLE I . E . , 1-3 , 1-4 , ETC. YOU HAVE" 

330 PRINT"20 VESSELS TO DOCK. ONE OTHER" 

340 FRINT"THING THAT CAN STOP YOU IS THE" 

350 PRINT"AMOUNT OF FUEL REMAINING <FER" 

360 FRINT"VESSEL> . ONLY IF YOU UNDERSTAND" 

370 PRINT"ALL INSTRUCTIONS, PRESS ENTER" 

380 PRINT"TO DOCK THE FIRST VESSEL"; 

390 INPUT X 

400 CLS 

410 REM VESSELS / BEGIN VALUE 

420 V=20 :DS=0 :DK=0 : VL=2 

430 REM TUBES 

440 X = 8 : Y=26 

450 FOR T=Y TO STEP-1 

460 SET <X,T>:SET(X+5,T>: NEXT 

470 FOR T=X TO X + 5 

480 SET<T, 0) :NEXT 

490 REM DO FOUR 

500 X = X-f31 

510 IF X=Y*5+2 THEN 530 

5 20 GOTO 4 50 

53 REM BOTTOM OF PORTS 



185 



540 W^O :X = 8 

550 FOR T=W TO X 

560 SETCT, Y> :NEXT: IF F=I THEN 600 

570 W=X + 6 :X=X*31 

580 IF W=107 THEN X=127:F=1 

59 GOTO 55 

600 REM FUEL 

610 F = 200 

620 F$=*"FUEL REMAINING:" 

630 X = 980 

640 FOR 1=1 TO LEN(FS) 

650 PRINT@X,MID$<F$ , I , 1) ; 

660 X = X + l ;GOSUB 1500 

670 NEXT: IF G= 1 RETURN 

680 Q = X+1 

690 FRINT@Q, F; 

70 REM START LOCAL 

710 L = 640 :VS*"*" :ZX=255 : PK=1 

720 M=L+63 : F=RND<VL> :R=Q 

730 PRINT@L ,VS ; 

740 REM BY INKEYS 

750 X$=INKEY$ 

760 IF VAL<X$)=:P THEN 900 

770 FOR T=l TO 5 :NEXT 

780 FRINT@L," " ; 

790 IF R«l THEN 810 

800 L=L+1 :GOTO 840 

810 L = L-1 

8 20 IF L<=M THEN 720 

830 GOTO 850 

840 IF L>=M THEN M=L»6 3 : R= 1 : VL =VL+ 1 

850 F«F-1:IF VL> = 9 THEN VL = 9 

860 IF F<=0 THEN 1200 

870 FRINT<fQ,F; : PRINT^Q + 5 , "TONS" ; 

880 IF INT(F/I0)*F/I0 THEN 1540 

885 IF F<=10 THEN 1540 

8 90 GOTO 73 
900 REM FORT? 

910 J=l : ZX=50 : FK=0 

92 PRINT8L," " ; 

930 L=L-64 

940 PRINT@L , V$ ; 

950 J=J+1 :GOTO 1540 

960 IF FEEK<L+15360-64) <>32 THEN 990 

9 70 GOTO 920 

990 IF J<=2 THEN 1030 

1000 F$=" VESSEL DOCKED SAFELY " 

1010 C=l :GOSUB 630 
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1020 DK=DK+t :GOTO 1070 

1030 F$="V ESSEL DESTROYED" 

1040 FOR T=l TO 5 : NEXT ; PR INT@L , M M ; 

1050 G*l : X = 975 : GOSUB 640 

1060 DS=DS*1 

1070 GOSUB 1600 

1080 F$ -STRINGS (32,32) : X=9 75 

10 90 GOSITB 640 

1100 V = V-1 :G=0 

1110 IF V<=0 THEN 130<r 

1120 VL=VL+1 

1130 IF VL> = 9 THEN VL = 9 

1140 GOTO 6 00 

1200 REM FUEL EXHAUSTED 

1210 F$ = "F U E L EXHAUSTED*' 

1220 G=l :X=975 

1230 GOSUB 640 

1240 FOR T=rl TO 5G0:NEXT 

12 50 GOTO 1030 

1300 REM ALL VESSELS IN 

1310 G=l : XX^O 

1320 FS="A LL VESSELS IN" 

1330 X=975:GOSUB 640:GOSUB 1 6 : X=XX : CLS 

1340 F$="YOU HAVE DOCKED" 

1350 GOSUB 640:FRINT DK ;: F $= "VESSELS" 

1355 X«X+4 

1360 GOSUB 640 : X=XX+64 : XX=XX+64 

1370 F$»"YOU HAVE DESTROYED" 

1380 GOSUB 640:FRINT DS ;: F $= "VESSELS " 

1385 X=X+3 

1390 GOSUB 640 : X=XX+64 : XX=XX+64 

1400 F$="END OF MISSION..." 

1410 GOSUB 640 

14 20 END 

1500 REM SOUND ROUTINE 

1510 POKE 31266 ,ASC<MID$ <F$ , I , 1 ) )+10 

1520 Z=USR<0> 

15 30 RETURN 

1540 REM MORE SOUND 

1550 POKE 31266 ,ZX :Z=USR<0) 

1560 IF PK*1 THEN 1580 

15 70 GOTO 96 

1580 IF F<=100 THEN ZX=ZX-10 

15 90 GOTO 890 

1600 REM FOR MESSAGE LOOP 

1610 FOR T=l TO 1200:NEXT 

16 20 RETURN 
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Variables and Strings 

V - Number of vessels 

DS - Vessels destroyed (counter) 

DK - Vessels docked (counter) 

VL - The beginning value for a random number between 1 and 2. 
This value will increase up to 9 in increments of 1 for each cycle 
(cycle : left to right then back to left) and each time a craft is 
safely docked X,Y, and W — For graphics of tubes (docks) 

F - Fuel amount 

F$ - Contents of different messages, depending on area of flow 

X - Used again for Print @ locations of messages 

Q - Print @ area of F (fuel) 

G - Simple 0/1 true/false variable for messages 

L - Start location of vessel 

V$ - Vessel (asterisk) 

ZX - Used in conjunction with sound output 

PK - For GOTO line definition 

M - Limit of L for asterisk movement 

P - Random selection of VL 

K - For left (R = 0) or right (R=l) movement of vessel 

J - To note if vessel has docked safely Q>= 3) 

Z - For USR call of sound routine 

Explanation of the Program Lines 

Lines 10-400 display the general playing instructions. 

Line 420 initializes several of the variables. 

Lines 430-590 display the graphics for the tubes (ports) in 
which each vessel must dock. 

Lines 600-620 set the amount of fuel and one of the messages 
for F$. 

Lines 630-690 print the different messages in F$. If G is equal 
to 1, lines 630 or 640 through lines 630-670 are being used as from 
another part of the program. 

Lines 700-890 form the main part of the program. Movement of 
the asterisks will continue left to right and then right to left until the 
VAL of X$ is equal to P, or all of the fuel is exhausted. 

Lines 900-970 move the vessel upward until the condition at 
960 is met. 

Line 990 tests the value of J. If it is less than or equal to 2 the 
vessel is considered destroyed. 

Lines 1000-1250 print the appropriate message indicating the 
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status of the vessel, advance the counters, and continue the program 
if V>=1. 

Lines 1300-1420 display messages indicating the number of 
vessels docked and/or destroyed and then terminate the program. 

Lines 1500-1590 is the routine for the sound output used when 
the status messages are displayed. 

Lines 1600-1620 form a time loop (pause) between appropriate 
messages. 
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MOVE RIGHT 



NO- 



MOVE LEFT 



RAIN OF TERHOR 

From the sky bombs will fall on your exact location. You will 
use the left and right arrow keys to move out of the path of destruc- 
tion, but you will have to be fast! Keep an eye on the POINTS 
BEFORE HIT message to obtain the highest score before termina- 
tion. Your score depends on when you move out of the path of the 
bomb. The longer you wait, the higher your score. Remember to 
use the proper value for SL in line 30. Refer to page 3. Note that the 
IBM version of this program is included in Appendix A, and the 
Apple version in Appendix B. 

Sample Run 

***RAIN OF TERROR*** 

INSTRUCTIONS (Y/N)? YES 

YOU WILL BE BOMBARDED FROM THE 
SKY, BY FALLING BOMBS. ALL YOU 
NEED DO TO STAY ALIVE IS TO 
USE THE LEFT ARROW AND THE 
RIGHT ARROW KEYS TO GET 
OUT OF THE WAY. 
IT SOUNDS VERY 
SIMPLE, BUT YOU MUST BE FAST! 

PRESS A KEY TO BEGIN 
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Flowchart for Rain of Terror. 
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Program Listing 

10 REM PROGRAM TITLE: RAIN OF TERROR 
20 CLEAR 200 : RANDOM 
30 CLS:PRINT:SL=31266 
40 PRINT n #a* RAIN OF TERROR * * * " 
5 PRINT:X$=STRING$ (63,32) 
60 INPUT" INSTRUCTIONS (Y/N)";A$ 
70 IF A$="N" THEN 190 

80 PRINT"YOU WILL BE BOMBARDED FROM THE" 
90 FRINT"SKY, BY FALLING BOMBS. ALL YOU" 
100 PRINT"NEED DO TO STAY ALIVE IS TO" 
110 PRINT"USE THE LEFT ARROW AND THE" 
120 PRINT"RIGHT ARROW KEYS, TO GET" 
130 PRINT"OUT FROM UNDER THE FALLING BOMBS." 
140 PRINT" IT ALL SOUNDS VERY" 

150 PRINT"SIMPLE, BUT YOU MUST BE FAST M" 
160 PRINT 

170 PRINT"PRESS A KEY TO BEGIN" 
180 AS=INKEY$:IF AS=" M THEN 180 
190 CLS 

200 REM BORDER / MESSAGES 
210 FRINT@0, STRINGS (63, 191) ; 
220 I $=CHR$ ( 143) : GOSUB 510 
230 R=0 :REM POINTS 

240 P = 64:PP = P + 62:U=P-f896 : UV = U : UW=U + 6 1 : RR = 
250 FRINT©P,"+" ; :FRINT©U, M ";:F=F+2 
260 U = U + 2 : PRINT@P»2 , " " ; : PR INT@U , I $ ; 
270 IF F>=FF THEN PRINT@U," " ; : GOTO 240 
280 POKE SL, 40 :D=USR(0) : PX=RND( 127) 
290 IF PX<=63 THEN 280 
300 IF ABS(F-FX><=8 THEN 320 
310 GOTO 250 
320 REM A DROP 
330 PL=P 

340 FRINTOP, "*" ; : P=P+64 
350 FRINT@P-64," "; 
360 IF P>FL+896 THEN 410 
370 K=PEEK( 14440) : IF K=32 THEN 420 
380 IF K=64 THEN 470 

390 R-R+25:RR=RR+25 :PRINT ©1 8 , RR ; : PRINT@5 5 , R ; 
400 IF F=U THEN 550 ELSE GOTO 340 
410 PRINT ©960, X$ ; :P=:PL:RR=0 : GOTO 
420 PRINT@U," "; 
430 U=U-2 

440 IF U<=UV THEN 480 
450 PRINT©U,I$; 
460 U=FL*896 : GOTO 340 
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470 PRINT^U," "; 

480 U = U+2 

490 IF U>=UW THEN V*UV 

500 GOTO 4 50 

510 HEM MESSAGES 

520 FRINT@0, "POINTS BEFORE HIT"; 

530 FRINT@40, "TOTAL POINTS"; 

5 40 RETURN 

550 REM BOMBED 

560 R = R-RR:FRINT@55 ,R; : PRINT®? 6 , X $ ; 

570 IF U<=962 THEN U=U+3 

580 IF U>=1020 THEN U = U~4 

590 U1=U-6 4;U2=U1~1 : U3 =U1 + 1 : U4* 1 

6 00 PRINT®!/,"*"; 

605 POKE SL,200 :D=USR<0> 

610 PRINT @U1 ,"*";: PRINT@U2 , " * " ; 

615 POKE SL,230:D=USR<0> 

6 20 FRINT£U3, "*" ; 

625 POKE SL,24G :D=:USR<0> 

630 FOR T=l TO 2 : NEXT : U4 =U4 + 1 

64 PRINT®!/, " " ; : PR INT@U2 , STR ING $ < 10,32); 

650 IF ABSCU-U1 > >=256 THEN 670 

660 U1=U1»64 :U2=U1-U4 :U3=U1+U4 : GOTO 600 

670 REM GONE 

680 FOR T=l TO 1000:NEXT 

690 CLS 

700 FRINT"YOU HAVE BEEN DESTROYED BY ONE" 

710 PRINT"OF THE FALLING BOMBS. YOUR" 

720 PRINT"TOTAL POINTS ACCRUED BEFORE" 

730 PRINT"YOU WERE DESTROYED VERE:";R 

740 FRINT.FOR T= 1 TO 1000:NEXT 

750 A$="END OF RAIN OF TERROR." 

760 FOR 1=1 TO LEN<A$) 

770 PRINT MID$(A$, I, 1 ) ; : POKE SL,30 

780 D=USR<0) 

790 NEXT 

80 END 

Variables and Strings 

SL - Sound location (machine language routine) 

X$ - For clearing area on video 

1$ - User's mark 

R - Points 

P, PP, U, UV, U W - All used in conjunction with one another for bomb 

location before drop and user's location 
D - USR call for output of sound 
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PX - Used for a bomb drop, if less than or equal to 8 

PL - Length of the drop 

K — User's movement (peek) 

RR - Points before actually hit by bomb 

U1,U2,U3,U4 - For explosion of user's mark when hit 

T - Time loop (pause) 

Explanation of the Program Lines 

Lines 10-190 initialize the sound location variable and display 
the general instructions. 

Lines 200-310 initialize more variables and keep the bomb and 
location of the drop moving before a drop. 

Lines 320-540 drop a bomb on the user's location, determine 
the user's location (if any), increase the score until the hit occurs, 
and determine the total score. If P= U (line 400), the user is 
destroyed. 

Lines 550-660 display the explosion of the user's mark when it 

is hit by a bomb. 

Lines 670-800 display the user's total number of points ob- 
tained before the mark was destroyed. 



194 









nr 




i i 




s 








_ 








$ 


■w 




i YOU MISSED 



KNIGHTS 

You've been hired by the king to destroy some knights that have 
escaped from the dungeon and gone into a castle. You are a 
sharpshooter, but it won't be that easy. The knights have captured 
some hostages, so think before you fire into that open window; you 
could shoot a hostage. If you destroy all of the hostages, the king 
will have your head ! Note that the IBM version of this program is 
included in Appendix A, and the Apple version in Appendix B. 

Sample Run 

»>>KNIGHTS«« 

INSTRUCTIONS NEEDED? YES 

THERE ARE 10 KNIGHTS IN A CASTLE. 
THERE ARE KNIGHTS THAT HAVE DONE 
WRONG AND WERE IN A DUNGEON 
WAITING TO HAVE THEIR HEADS 
REMOVED. THEY HAVE BROKEN OUT OF 
THE DUNGEON AND GONE INTO A 
CASTLE. ALONG WITH THEM ARE 
8 HOSTAGES. THE KING 
WILL NOT MEET TO THE CONDITIONS 
THEY HAVE SET, SO THEY'RE 
GOING TO STAY UNTIL THE END... 
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Flowchart for Knights . 
196 



~"1_Jh]_JI]_J1I]__J]^^ 



YOU HAVE 9 ARROWS TO FIRE. 
PRESS ENTER TO RESUME? 

YOU ARE THE SHARPSHOOTER SELECTED 
BY THE KING TO TERMINATE EACH 
OF THESE KNIGHTS. YOU ARE 
EQUIPPED WITH A HIGH-POWER CROSS- 
BOW. ALONG THE CASTLE WALLS ARE 
FIVE WINDOWS. EACH TIME A FIGURE 
APPEARS AT A WINDOW YOU'LL HAVE 
THE OPTION OF WHETHER OR 
NOT TO FIRE (BY HITTING 
THE SPACE BAR). THE 
FIGURE THAT APPEARS AT A WINDOW 
COULD BE ONE OF THE HOSTAGES. 
IF IT IS A KNIGHT AND YOU DON'T 
FIRE, YOU COULD BE HIT... 

PRESS ENTER TO BEGIN? 

Program Listing 

10 REM PROGRAM TITLE: KNIGHTS 

20 CLEAR 700 

3 CLS: RANDOM 

40 PRINT">>>> KNIGHTS <<<<" 

50 PRINT 

(50 PRINT" INSTRUCTIONS NEEDED"; 

70 INPUT TS 

80 IF T$="N" OR T$="NO" THEN 370 
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90 FRINT"THERE ARE 10 KNIGHTS IN A CASTLE" 
100 FRINT"THESE ARE KNIGHTS THAT HAVE DONE" 
UO PRINT"WRONG AND WERE IN A DUNGEON" 
120 FRINT"WAITING TO HAVE THEIR HEADS" 
130 PRINT"REMOVED. THEY HAVE BROKEN OUT OF" 
140 PRINT"THE DUNGEON AND GONE INTO A" 
150 FRINT"CASTLE TAKING EIGHT HOSTAGES" 
160 PRINT"WITH THEM. THE KING WILL" 
170 PRINT"NOT AGREE TO THE CONDITIONS- 
ISO PRINT"THEY HAVE SET DOWN, SO THEY'RE" 
190 PRINT"GOING TO STAY 'TU THE END,.." 
200 PRINT: INPUT"PRESS ENTER TO RESUME" ;T$ 
210 PRINTS, CHRSC30) 

220 PRINT"YOU ARE THE SHARPSHOOTER SELECTED" 
230 PRINT*'BY THE KING TO TERMINATE EACH" 
240 PRINT"OF THESE KNIGHTS. YOU ARE" 

250 PRINT"EQVIFPED WITH A HIGH-POWER CROSS-" 

260 FRINT"BOW, ALONG THE CASTLE WALLS ARE" 

270 PRINT"FIVE WINDOWS. EACH TIME A FIGURE" 

280 PRINT M APPEARS AT A WINDOW YOU'LL HAVE" 

290 PRINT"THE OPTION OF WHETHER OR NOT TO FIRE' 

300 PRINT"<BY HITTING THE SPACE BAR). THE" 

310 PRINT"FIGURE THAT APPEARS AT A WINDOW" 

320 PRINT"COULD BE ONE OF THE HOSTAGES." 

330 PRINT"IF IT IS A KNIGHT AND YOU DON'T" 

340 FRINT"FIRE, YOU COULD BE HIT..." 

350 PRIMT 

360 INPUT"PRESS ENTER TO BEGIN" ;T$ 

370 CLS:K=10:HD=B:CR=10 

380 REN HAKE A CASTLE 

390 C$=5TRING$<62, 191) 

400 A=320 

410 PRINT@A,C$ \ 

420 IF A>=768 THEN 440 

430 A=A+64:GOTO 410 

440 REM TOP OF CASTLE 

45 A = 25 6:C$=CHR$U83)+CHR$(187> 

460 FRINT@A,C$; 

470 A=:A*4 

480 IF A>=320 THEN 500 

490 GOTO 460 

500 REM NOW FIVE WINDOWS 

510 C$=STRING$(5,32):J=:1 

520 ArA+72:XXrl9 

530 PRINT@A,C$; : PRINT@A*64 , C$ ; 

540 A(J)=A+65: J=J+1 

550 IF A>=432 THEN 570 

560 A=A+10:GOTO 530 
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570 HEM FIGURE 

580 F$*CHR$(182)+CHR$U43)+CHR$U85> 

590 REM GET A WINDOW 

6 00 W=RND(5> 
610 WI=A<W> 

620 REM PAUSE BEFORE PLACING 

630 PA=RND(700> :IF PA<=250 THEN 630 

640 FOR FU^l TO 700 

650 IF FU=PA THEN 670 

660 N£XT:GOTO 630 

670 PRINT@WI,F$; 

680 REM SHARPSHOOTER TO FIRE 

690 FOR TI=i TO 100 

700 W5=INKEY$ 

710 IF W$<>"" THEN 730 

720 NEXT 

730 REM KNIGHT OR HOSTAGE 

7 40 H1=RND(5) :H2=RND<5) :H3=RND<5> 
750 H=ABS(H1-H2-H3) 

760 PRINT@WI,STRING$<3,32> ; 

762 IF H=W THEN 1240 

765 IF HD<=0 THEN 840 

770 IF H<=0 OR H>=5 AND TI<=99 THEN 790 

780 GOTO 840 

790 REM A HOSTAGE 

800 PRINT@0,;:IF TI>=75 THEN 880 

810 FRINT»YOU HAVE JUST KILLED ONE" 

820 PRINT"OF THE HOSTAGES, TURKEY !!" 

830 GOTO 970 

840 FRINT@0, ; : IF TI>=100 THEN 880 

850 PRINT"GOOD SHOOTING, YOU HAVE" 

860 PRINT"KILLED ANOTHER KNIGHT." 

870 GOTO 940 

880 PHINT@0,;:IF H>=0 AND H<=2 THEN 1020 

890 PRINT"THINK FASTER M YOU HAVE BEEN" 

900 PRINT"HIT BY ONE OF THE KNIGHTS ! ! » 

910 HK=HK+1 

920 IF HK> = 6 THEN 1060 

930 GOTO 990 

940 K=K-1: PRINT K;"KNIGHTS REMAIN " 

950 IF K<=0 THEN 1120 

960 GOTO 990 

970 HD=HD-1 

980 IF HD<=0 THEN 1180 

990 FOR TX=1 TO 1500:NEXT 
1000 REM CLEAR PRINT AREA 
1010 PRINT@0,STRING$<255,32); : GOTO 1400 
1020 IF HD<=0 THEN 890 
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1030 FRINT"GOOD THING YOU DID MOT FIRE" 

1040 PRINT"THAT WAS A HOSTAGE ! ! " 

1050 GOTO 990 

1060 REM HIT ENOUGH 

1070 PRINT0O, ; 

1080 PRINT"YOU HAVE BEEN HIT" ;HK ; "TIMES " 

1090 PRINT"YOUR BODY CANNOT STAND" 

1100 PRINT n ANYMORE. YOU ARE DYING " 

1110 GOTO 1530 

1120 REM KNIGHTS OMITTED 

1130 FRINT@0, ; 

1140 PRINT"YOU HAVE KILLED ALL 10" 

1150 PRINT"KNIGHTS THE KING WILL BE" 

1160 PRINT"PROUD OF YOU MY FRIEND » 

1170 GOTO 1530 

1180 REM HOSTAGES GONE 

1190 PRINT@0, ; 

1200 PRINT M YOU HAVE KILLED ALL OF THE" 

1210 FRINT"HOSTAGES„ „ YQV TURKEY H" 

1220 PRINT M THE KING WILL HAVE YOUR HEAD !!" 

12 30 GOTO 990 

1240 REM COMPLETE MISS 
1245 IF TI>=100 THEN 765 

1250 XX=RND<122> 

1260 IF XX< = 2 THEN 1260 

1270 YY=RND(35> 

1280 IF YY<=17 THEN 127 

1290 RESET<XX,YY) 

1300 FRINT@0, ; 

1310 PRINT n YOU'LL HAVE TO DO BETTER" 

1320 PRINT"THAN THAT, YOU'VE MISSED ! ! " 

1330 GOTO 990 

1350 REM CROSSBOW ROUNDS 

1360 PRINTS910, ; 

1370 PRINT"YOU HAVE" ; CR ; "ARROWS TO FIRE." 

138 RETURN 

1400 REM ENOUGH ARROWS LEFT 

1410 IF TI<=99 THEN CR=CR-1 

1420 GOSUB 1350; IF CR< = THEN 1440 

143 GOTO 59 

14 40 REM END 

1450 FOR TX=1 TO 2000:NEXT 

1460 CLS 

1470 FRINT"YOU HAVE EXHAUSTED YOUR" 

1480 PRINT"SUPPLY OF CROSSBOW ARROWS." 

14 9 IF KO0 THEN 1510 

1500 GOTO 1530 

1510 PRINT"THERE ARE STI LL "; K ; "KNIGHTS" 
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1520 FRINT"IN THE CASTLE " 

153 PRINT 

1540 IF HD<=:0 THEN 1560 

155 GOTO 16 00 

1560 PRINT"YOU ARE A BLUNDERING SHARP-" 

15 7 FRINT H SHOOTER, YOU IDIOT ! ! " 

1580 FRINT"YOU HAVE HIT AND KILLED " 

1590 PRINT"THE 8 HOSTAGES ! M M 

1600 PRINT 

1610 PRINT"END OF RUN, " 

1620 END 

Variables and Strings 

K - Number of knights 

HD - Total number of hostages 

CR - Total arrows 

C$ - CHR$ for castle and windows 

A - Print @ location for structure of castle 

AQ) - Locations of windows (5) 

W - Random window selection 

WI - Window select, A(W) 

PA - Pause before placing figure in selected window 

W$ - INKEY$ to fire at figure 

H1,H2,H3,H - Used to determine if the figure was a hostage 

TI - Time loop for the length of time figure will appear in window 

HK - Counter user hit by knight 

XX, XY - Used to reset an area of the castle for a user miss 

Explanation of the Program Lines 

Lines 10-360 display the general operating instructions. 

Line 370 initializes 3 variables. 

Lines 380-560 display a castle and set the 5 window locations 
to the subscripted variable AQ). 

Lines 570-580 establish the figure that will appear in a window. 

Lines 590-610 select (randomly) which one of the five windows 
the figure will appear in. 

Lines 620-660 establish a random-length pause determined by 
the variable PA, before the figure is printed. 

Lines 680-720 use the INKEY$ function for the user to fire 
upon the figure. 

Lines 730-750 use variables to determine whether figure was a 
hostage or a knight. 

Line 760 clears the figure from the window. 

201 



Line 762 determines whether or not the shot missed com- 
pletely. 

Line 765 sends program control to line 840 where a knight 
eliminated if TI< = 99. 

Line 770 determines whether or not a hostage hit, ifTI<= 99. 

Line 780 is the same as line 762 and is used if previous 
conditions were not met. 

Lines 790-830 display the hostage killed message. 

Lines 840-870 display the knight killed message. 

Lines 880-930 indicate that the user has been hit by a knight. If 
the user receives at least 6 hits, he or she will be declared dead (line 
920). 

Lines 940-960 display a message indicating how many knights 
remain. If K< = all knights have been eliminated. 

Line 950 sends program control to line 1120 if all the knights 
are dead. 

Lines 970-980 are accessed when a hostage is killed. If all 
hostages are killed, the king will have the user's head (line 980). 

Lines 990-1010 form a delay loop and clear the print messages. 

Lines 1020-1050 print a message indicating that a hostage was 
in window. 

Lines 1060-1110 display the message that the user is dying. 

Lines 1120-1170 display the message that all the knights have 
been killed. 

Lines 1 180-1230 display the message that all the hostages have 
been killed, but the program continues so that the user can finish off 
the knights. 

Lines 1240-1330 are used when the user misses completely. 
Message is displayed , and an area of the castle is reset to show what 
area was hit. 

Lines 1350-1380 display a message that indicates how many 
arrows remain. 

Lines 1400-1430 test the number of arrows remaining. If there 
aren't any, the program is terminated. 

Lines 1440-1620 terminate the program and display the ap- 
propriate messages. 
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Games to Keep You 
Alert or Put You to Sleep 



Triangle is a game of chance that tests your luck in avoiding landing 
on the spot chosen by the computer. 

Mind Invasion forces you to move quickly to avoid being 
crushed. 

Trapped challenges you to trap the computer's piece. Watch 
out— it can burn you. 

Elevator tests your memory. Can you get all the customers to 
the floors they want to go to ? 

Farewell offers a merciful death. All you must do is land on 
the spot where the cobra is hiding. To win you must land on the spot 
indicated by a quick flash. 

Insomnia will put you to sleep. All you have to do is watch the 
screen. 

Rainy Daze puts your attention span on trial. How long can 
you concentrate on the numbers on the screen ? 
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YOU'RE OUT OF THE GAME 

TRIANGLE 

Moving around in a triangle. You and two other people will try tc 
avoid landing on the spot selected by the computer. There is a way 
to come out the victor almost every time. That is all I will tell you; 
you'll have to figure out how yourself. Don't get your arms tangled 
with the other two players during the trips around the triangle! 
Refer to pages 1-3 for information on the sound routine. 

Sample Run 

...TRIANGLE... 

OUTLINE FOR PLAY7YES 

THIS PROGRAM REQUIRES 3 PLAYERS. 

THE COMPUTER WILL SELECT A LOCATION 

AT THE START OF THE PLAY. EACH 

PLAYER IN TURN WILL ENTER 

A NUMBER FROM 1 TO 9. THE MOVE 

AROUND THE TRIANGLE WILL 

BEGIN. IF AT ANYTIME A PLAYER 

LANDS ON THE SPOT THE COMPUTER 

HAS CHOSEN, THAT PLAYER WILL BE 

ELIMINATED FROM THE GAME. 

PRESS A KEY... 

THIS WILL CONTINUE UNTIL THERE 
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PRINT 
INSTRUCTIONS 




Flowchart for Triangle* 
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IS ONLY ONE PLAYER LEFT, THE 

WINNER. THINK BEFORE YOU ENTER A 

NUMBER AND KEEP YOUR EYE 

ON THE OPPONENT. 

3 FIRST NAMES, PLEASE. 



Program Listing 

10 REM PROGRAM TITLE: TRIANGLE 

20 REM REQUIRES THREE PLAYERS 

30 CLS 

40 PRINT". . TRIANGLE . .. " 

50 PRINT 

60 INPUT"OUTLINE FOR FLAY";X$ 

70 IF MID$<X$,2, 1) <>"E M THEN 210 

80 PRINT«'THIS PROGRAM REQUIRES 3 PLAYERS " 

90 FRINT"EACH PLAYER WILL TRY TO EVADE" 
100 PRINT"THE OTHER, IN A NEVER ENDING" 
110 PRINT"TRIANGLE MORE LIKE A CHASE/' 
120 PRINT"THE SECOND PLAYER WILL MOVE" 
130 PRINT"AROUND THE TRIANGLE, SEARCHING" 
140 PRINT"FOR THE FIRST AND THIRD, THE THIRD' 
150 PRINT"PLAYER WILL SEARCH FOR THE SECOND" 
160 PRINT"OR FIRST. THEN THE FIRST WILL" 

170 PRINT M SEARCH FOR THE SECOND OR THIRD " 

180 PRINT" M ! W H E V M !" 

190 GOSUB 1000:CLS 

200 PRINT"THIS WILL CONTINUE UNTIL ONLY ONE" 

210 PRINT"PLAYER IS LEFT, THAT PLAYER WILL" 
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220 PRINT N BE THE WINNER. MOVE AMOUNTS WILL" 

23 PRINT N RANGE FROM 1 THROUGH 9 ENTER NOV" 

240 PRINT M THE THREE PLAYERS FIRST NAMES", 

250 FOR U1T03 

260 INPUT NS( I) :NEXT: Y=2 

270 PRINT"FIRST PLAYER SELECTION,.." 

280 FOR Ib1TO10;L(I)=I :NEXT:FOR T=1T01000 

290 NEXT:R=1 : GOSUB 1 400 : A=RND ( 3 ) 

300 IF A=l THEN 360 

310 IF A = 2 THEN 340 

320 N$(0)=:N5(3) .FOR T=ATOi STEF-i 

330 N$(T)=N$(Y) : Y=Y-i : NEXT: GOTO 350 

340 N$<0)=N$<2> ;N$(2)=N$<3) :N$(3)=N$<1 > 

350 NS(1 )=N$(0) 

360 1 = 1 :RANDOM 

370 PRINT"THE FIRST PLAYER IS: n ,N$(I) 

380 PRINT 

390 GOSUB 1000:CLS 

400 REM GRAPHICS WITH SOUND 

410 POKE 16526, 0:POKE 16527,122 

4 20 W=8 97 

430 PRINT@W,CHR$U43) ; 

440 POKE 31265, 30 : POKE 3 1 2 66 , 1 00 ; X=USR ( ) 

450 IF W>x958 THEN 470 

46 WrW+1 :GOTO 4 30 

470 PRINT@923, M TRIANGLE " ; : M=2 ; N= 1 2 4 : Q 3 4 1 

48 SET(M,Q) . SETCM+1 ,Q) :SETCN,Q) : SET (N+l ,Q> 

490 POKE 31265, 30 : POKE 3 1 26 6 , N : X=USR ( ) 
500 M=M+2;N=N~2 :Q=Q-1 

510 IF ABS(M-Q>=54 THEN 530 

520 GOTO 4 80 

530 N$=NS(I) :PRINT®0,N$;" YOUR LOCATION... " 

540 F = 0: IF F=i THEN 560 

550 J=863:REM MOVEMENT TO LEFT 

560 FRINT@J,CHR$U43> ; 

570 IF F<>3 THEN 590 

58 GOTO 630 

590 F=F+1 

600 POKE 31265, 30 :POKE 3 1 26 6 , 2 00 : X=USR ( ) 

610 FOR T=iTO100.NEXT:FRINT@J,CHR$< 32) ; 

620 FOR T=1T0125;NEXT:G0T0 560 

630 REM ENTRY AMOUNT 

640 FRINT80, , :NN=220 

6 50 PRINT N$; M ENTER A NUMBER?"; 

660 GOSUB 1010;A=VAL(X$ ) ;K=0:GOSUB 990 

670 IF K< >A THEN 690 

680 GOTO 940 

690 GOSUB 1100 
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700 J=J-1: GOSUB 1130 

710 IF D = l THEN GOSUB 920:GOTO 740 

720 IF J<=837 THEN GOSUB 900 

730 IF J = 350 THEN GOSUB 110G;GOTO 780 

735 IF J = 352 THEN GOSUB 1100;GOTO 780 

740 IF J = 889 THEN D=0:NN=22Q 

750 K»K+1 :GOTO 1200 

760 POKE 31265, 30 :FOKE 3 1 2 66 , NN ; X = USR ( ) 

770 GOTO670 

780 J=J+3:D=1 

790 GOTO 740 

900 GOSUB 1100 

910 J=(J-64)+4:NN=NN-2:GOSUB 1130;RETURN 

920 GOSUB 1100 

930 J=J+68 :NN=NN+2 : GOSUB 1130:RETURN 

940 REM FLAYER ADVANCE / DELETE 

945 PR1NT@<0+LEN(N$>+16) , " " ; 

950 J(I )=J;D< I >=D; 1 = 1 + 1 : GOSUB 1100 

960 IF I> = 4 THEN Ul:P=i 

970 IF P=l THEN J«J( I ) : D=D< I ) 

980 IF N$U) = "" THEN 950 ELSE GOTO 530 

990 FRINT@(0+LEN(N$)+16> ,Aj : RETURN 
1000 FRINT"FRESS A KEY 
1010 X$=INKEY5;IF X$=:" N THEN 1010 
1020 RETURN 

1100 REM CLEAR CHARACTER BEFORE MOVEMENT 
11 10 FRINT@J,CHR$<32) ; 
1120 RETURN 

1130 PRINT@J,CHR$<143) , 
1140 RETURN 

1200 REM DROP A PLAYER ??? 
1210 IF 1=1 THEN 12 5 
1220 IF 1=2 THEN 1240 

1230 IF J=J(I-2) OR JsJ(I-l) THEN U=I:GOTO 1270 
1240 IF JsJ(I-l) OR J=J(I+1) THEN U=I:GOTO 1270 
1250 IF JaJ<I+l> OR J=J<I+2) THEN U= I : GOTO 1270 
1260 GOTO 760 

1270 IF JOL OR KOA THEN 1260 
1280 REM PLAYER DELETED 
1290 IF U = 3 THEN 1330 
1300 IF U^2 THEN 1340 
1310 IF V=l THEN 1350 
1320 GOTO 1260 

1330 IF J=J(I-2> THEN NX=I-2:GOTO 1360 
1335 IF J=J(I-1) THEN NX=I~l:GOTO 1360 
1340 IF J=J(I-1) THEN NX=I-l:GOTO 1360 
1345 IF J=J<I+1) THEN NX=I+l:GOTO 1360 
1350 IF J = J(I + 1) THEN NX = U1 GOTO 1360 
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1355 IF J*J(I+2) THEN NX=I+2:G0T0 1360 

1360 FRINT@64 t , 

1370 PRINT'PLAYER ELIMINATED ..," ;N$ (NX) ; " 

1380 N$<NX) = ,,n :FT=30:FF = 3:GOSUB 1560 

13 9 GOTO 1500 

1400 REM LOCATION SELECT 

1410 IF R>=:2 THEN 1430 

1420 FOR W=lTO10:READ L(W):NEXT 

1430 L=RND<10) 

1440 IF L(L)=0 THEN 1430 

145 L=L<L> .RETURN 

1460 DATA 850,889,822,716,688 

1470 DATA 621,594,472,420,411 

1500 REM DELETE AND SELECT 

1510 REM ANOTHER LOCATION 

1520 LCR)=0:R=:R + 1 

1530 IF R=3 THEN FF^l : FT= 1 ; GOTO 1570 

1540 GOSUB 1400 

1550 J(NX)=0:FOR T= 1T01 00 : NEXT 

15 60 GOTO 940 

1570 GOSUB 1580:GOTO 1 6 40 : REM WINNER 

1580 A=150:FOR I = 1T03 ; A ( I ) =A 

1590 A=A+50:NEXT:F=0 

1600 FOR I=1T03 

1610 POKE 31265, 30:POKE 3 1 266 , A < I ) -FT: X = USR ( ) 

1620 NEXT 

1630 IF FOFF THEN F = F+l:GOTO 1600 ELSE RETUHN 

16 40 PRINT8128, ; 

1650 PRINT M THE CHAMP IS..,."; 

1660 IF N$(l><>"" PRINT NS(l):GOTO 1690 

16 70 IF N$(2)(>"" PRINT N$(2):GOTO 16 90 
1680 IF N$(3) <>"'• PRINT NS(3) 

1690 FOR T=lTO1200:NEXT 

1700 CLS 

1710 INPUT"READY TO TRY ANOTHER TRIANGLE" ; Z$ 

1720 IF Z$<>"Y" AND Z$<>"YES" THEN 1750 

1730 CLS:FOR 1= 1T03 : J( I ) =0 : NEXT : P=0 

1740 RESTORE:GOTO 240 

1750 PRINT 

1760 PRINT H END OF TRIANGLE n :F*0 

1770 POKE 31265, 30:POKE 3 1 266 , 1 20 : X=USR < > 
1780 IF F<)15 THEN F=F+l;GOTO 1770 

17 90 END 

Variables and Strings 

N$(I) - Players' names 

L(I),L - Selection of one location by the computer 
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W - Triangle graphics 

J - Character position of current player 

NN - For sound output (machine program) 

A - User move number (value of X$) 

K - Value of the distance from the start position to stop 

D - For direction of character (around inside of triangle) 

J (I) - For advance or elimination of a player 

U - Player eliminated 

F - Variable for sound output 

Explanation of the Program Lines 

Lines 10-230 display the general operating instructions. 

Lines 240-280 request the three players' first names. 

Lines 290-350 select the first player. 

Lines 360-520 indicate who the first player is, display the 
triangle, and establish the sound routine. 

Lines 530-620 keep track of the current player's location within 
the triangle. 

Lines 630-690 accept the player's move. 

Lines 700-930 move the player's character in the correct di- 
rection and keep it within the triangle. 

Lines 940-1020 either advance or eliminate the player. 

Lines 1100-1140 clear the character before movement. 

Lines 1200-1390 eliminate a player if that player has landed on 
a computer selected location. 

Lines 1400-1560 read the data for all the locations within 
triangle and then select one location. 

Lines 1570-1790 print the winner's name and allows the users 
to try again. 
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MIND INVASION 

The computer will try to invade your mind with as many moving 
graphics as possible. What you must do is move out of the way of the 
two blocks before they meet in the middle of the video and squash 
you. To gain any points at all, you must be constantly moving up or 
down. This motion is achieved by using the up and down arrows, of 
course. Note that the IBM version of this program is included in 
Appendix A, and the Apple version in Appendix B. 

Sample Run 

MIND INVASION 

NUMBER OF PLAYERS? 5 

PLAY OUTLINE NECESSARY? YES 
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EACH OF YOU 5 PLAYERS WILL 
EXPERIENCE A NEW FORM OF MIND 
INVASION. THE OBJECT OF THE GAME: 
KEEP PLAYING AS LONG AS POSSIBLE 
WITHOUT GETTING CRUSHED. 
YOU, THE USER WILL BE LOCATED AT 
THE CENTER OF THE VIDEO DISPLAY 
IN THE FORM OF A '+' SIGN. YOUR 
ONLY MOVEMENTS WILL BE STRAIGHT 
UP OR STRAIGHT DOWN, ACCOMPLISHED 
WITH THE UP ARROW AND DOWN 
ARROW KEYS. 

PRESS A KEY 



TO TAKE ADVANTAGE OF ANY POINTS 
YOU MUST BE CONSTANTLY MOVING 
UP OR DOWN. THE OUTER BOUNDARIES 
OF THE VIDEO WILL CONTAIN 
FLASHING ASTERISKS FOR CONFUSION. 
ALSO CONTAINED IN THOSE BOUNDARIES 
ARE TWO BLOCKS THAT, 
WITHOUT NOTICE, WILL MOVE VERY 
QUICKLY TOWARD THE CENTER TO 
YOUR LOCATION. IF YOU ARE SUCCESS- 
FUL IN MOVING OUT OF THE WAY, 
YOU CAN CONTINUE PLAYING. IF, ON 
THE OTHER HAND, YOU GET SMASHED, 
PLAY WILL ADVANCE TO THE NEXT 
PLAYER. THIS IS ALSO TRUE IF 
COLLIDE INTO THE BLOCKS. 

PRESS A KEY 



THE GAME ENDS WHEN EACH 
PLAYER HAS PLAYED A TOTAL OF 2 (TWO) 
ROUNDS. THE PLAYER FINISHING WITH 
THE HIGHEST SCORE WILL BE THE 
WINNER 

ENTER THE 5 PLAYERS 
FIRST NAMES NOW 
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f START J 



NUMBER 
OF PLAYERS 




INPUT PLAYERS' 
NAMES 



SET VARIABLES 
GRAPHICS 



PRINT PLAYER 
BEGIN PLAY 




DEDUCT 
POINT VALUE 



DOWN"" 

CHARACTER MOVE 



"UP- 
CHARACTER MOVE 



DEDUCT 
POINT VALUE 



SORT SCORES 
PRINT TOP PLAYER 




C STOP J 



Flowchart for Mind Invasion, 
214 





PLAYER. 



POINTS ■ 



Program Listing 



10 

20 
30 
40 
50 
60 
70 
60 
90 
100 
110 
115 
120 
130 
140 
150 
HO 
170 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 



HEM PROGRAM TITLE: MIND INVASION 

REM INSTRUCTION ROUTINE 

CLEAR 500;GOSUB 1 500 ; J= 1 : TR= 1 

REM OUTER GRAPHICS 

X=15360;Y*15423;K*191 : FN= 1 : TX=Y+4 1 7 : TL=TX 

POKE X,K:POKE Y,K;POKE X+10,K:POKE Y-10,K 

X*X+65;Y=(Y+64>-l :J=J+1 

IF JOINT<K/22) THEN 60 

REM GOTO CHARACTER PRINT / IF DONE 

IF J=16 THEN N=42:PQKE TX,43:GOTO 140 

POKE X,K;POKE Y,K:POKE X+10,K:POKE Y-10,K 

IF FN=1 THEN A(1)=X;A(2)=Y:L=A(1) :R = A(2> 

X = U + 64)-l : Y=Y+65 

J»J + 1 ;FN=2 ;GOTO 100 

FRINTS1000, "YOUR POINTS ="; 

PI = 

GOSUB 910 

PRINT@960, "PLAYER. ,. .»jN$(PZ) ; 

REM CHARACTER GRAPHICS VARIABLES 

J=7;£=4 48:F=50 5:T=1 : E2=E : F2=F : TC= 1 1 ; BC= 90 7 

KY=1 :G=42 :GOSUB 3 8 : I F TI> = 3 THEN 880 

PRINT@E,V$; :PRINT8F,W$, : El«E+64 : FUF + 65 

T«T+l;GOSUE 350 

PRINT@E,L$, ; PRINTS, L$ ; 

IF T>=2 THEN J*J-l:GOSUB 380:GOSUB 350 



PRINT@E-64,V$ 
FRINT@F-63,W$ 
PRINT§E~64,L$ J 
PRINT@F~63,L$, 



PRINTOE1,V$, 
FRINT@F1,V$ 

PRINT@E1,L$ 
PRINT@F1,L$; : GOTO 600 



E = E-64;F = F- 63 EUE2 + 128:FUF2 + 130 
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320 E2rE2+64:F2=F2+65:T=T+l 

330 REM RESET VARIABLES IF DONE 

335 GOTO 700 

340 IF T>=8 THEN 200 ELSE KY=KY+ 1 : GOTO 260 

350 REM FOR CHARACTER CLEAR 

36 L$=STRING$(J,32) : Q$ = STR ING$ ( G , 42 ) 

370 Q1$=STRING$(G,32> :RETURN 

380 W$=STRINGS(J,N> 

390 RETURN 

4G0 X$=INKEY$ :REM USER MOVEMENT 

405 TI=TI+l;REM LIMIT COUNT WITHOUT MOVEMENT 

410 IF X$ = M " THEN 340 

420 TI=1:REM PLACEMENT / LIMIT / RESET 

430 IF ASC(X$)=10 THEN 460 

440 IF ASC<X$>=91 THEN 490 

45 GOTO 340 

460 POKE TX,32:TX^TX+64 

470 IF ABS(TX-TL)>=128 THEN TX=TX~64 

480 POKE TX,43:U(KY)=ASC<X$> : GOTO 340 

490 POKE TX,32:TX=TX»64 

500 IF ABS(TX-TL)>=128 THEN TX=TX+64 

510 POKE TX,43:U(KY)=ASC(X$> : GOTO 340 

600 REM TOP / BOTTOM CHARACTERS 

610 PRINT@TC,Q$; 

620 PRINT@BC,Q$ , 

630 PRINT@TC,Q1$; 

640 PRINTSBCQl* ; 

650 TC = TC + 65:BC = BC-63:G=:G-2 

660 REM REPLACE USER CHARCTER 

670 IF PEEKCTX)=32 THEN POKE TX , 4 3 

68 GOTO 3 10 

700 REM CRUSHER MOVEMENT 

705 POKE AU) + 10,32.POKE A < 2 > - 1 , 3 2 

710 POKE L,32:POKE R,32 

720 IF ABS(L-R)=1 THEN 750 

730 L=L+8:R=R-8 

740 POKE L,K:POKE R,K:GOTO 400 

750 L*A(i) :R = A<2) : GOTO 800 

760 POKE L,K:POKE L+10,K 

770 POKE R,K:PQKE R~10,K 

780 REM RECYCLE 

790 GOTO 400 

800 REM CRUSHED ? 

810 IF FEEK<TX)*32 THEN 840 

820 IF TI < =2 AND U ( KY ) < > U ( KY™ 1) THEN PI=PI+ABS 

(TX-TL) :GOSUB 910 
830 GOTO 760 
840 REM YES CRUSHED 
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850 FR1NT@960," << CRUSHED )> n ; 

860 POKE TX,32 

870 FOR LX=lTO2000:N£XT:GOTO 950 

880 REM LIMIT REACHED / NO MOVEMENT 

890 TI=0 

90O PI=PI-ABS<TL-TX) :GOSUB 9 1 : GOTO 920 

910 FRINT$1014,PI; :RETURN 

920 GOTO 23 

950 REM PLAYER ADVANCE / END 

960 TP(PZ)=PI :FI=0:PZ=FZ+1 

970 IF PZ>FL THEN GOSUB 1 2 00 : TR=TR+ I : P Z= I 

980 IF TR> = 3 THEN GOSUB 1240:GOTO 1010 

990 FOR LX=1T014:PRINT:NEXT 
1000 GOSUB 2100:CLS: J=l ; GOTO 40 
1010 REM END / HIGH POINT WINNER 
1020 T=0:H=1:IF H=PL THEN 1120 
1030 IF FT<H) >=FT<H+1> THEN 1080 
1040 FT=FT(H> : FT< H> =FT(H+ 1 > 
10 50 FT<H+1)=FT:N$=N$<H> : N$ <H > =N$ (H+l ) 
1060 N$ (H+l )*N$ 
1070 T=l 
1080 H=H+1 

1090 IF H<PL THEN 1030 

1100 IF T=l THEN 1020;REM NOT REFINED 
1110 GOTO1300 
1120 CLS 
1130 PRINT 

1140 FRINT"YOUR TOTAL POINTS, AFTER 2" 
1150 PRINT"ROUNDS =" ; TP ( H) +WE ( H ) 

1160 GOTO 13 90 

1200 REM TALLY FIRST ROUND POINTS 

1210 IF TR)=2 RETURN 

1220 FOR I=lTOPL 

1230 WE<I)=TP(I):NEXT:RETURN 

1240 REM FINAL TALLY 

1250 FOR IalTOPt 

1260 FT(I)=VEU)+TP(I) 

1270 NEXT 

1280 RETURN 

1300 REM TOP WINNER (MORE THAN 1 PLAYER) 

1310 CLS 

1320 1=1 

1330 PRINT'THE TOP WINNER; ";N$(I>;" WITH" 

1340 PRINT FT(I) ; "POINTS." 

1350 PRINT M FOLLOWED BY:" 

1360 FOR I=2TOPL:PRINT N$(I); H WITH"; 

1370 PRINT FT< I ^"POINTS." 

1380 NEXT 
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1390 PRINT 

1400 FRINT"END OF PROGRAM RUN," 

1410 END 

1500 REM INSTRUCTIONS 

1510 I$="MIND INVASION" 

1520 I=5:CLS 

1530 FOR LX=1T0LEN<I$> 

1540 FRINTTAB(I) MID$ ( I $ , IX , 1 i ; 

1550 FOR Y=lTO50:NEXT Y 

1560 1=1+1 :NEXT LX 

157G FOR Y=lTO1000:NEXT 

1580 PRINT 

1590 INFUT"NUMB£R OF PLAYERS <1-10>",FL 

1600 IF PL<=0 OR PL>=11 THEN 1590 

1610 PRINT"FLAY OUTLINE NECESSARY"; 

1620 INPUT X$ 

1630 IF X$="N M OR X$="NO" THEN 2040 

1640 PRINT 

1650 PRINT"EACH OF YOU" ; FL ; "FLAYERS VILL" 

1660 PRINT"EXPERIENCE A NEW FORM OF MIND" 

1670 PRINT"INVASION. THE OBJECT OF THE GAME:' 

1680 PRINT"KEEP PLAYING AS LONG AS POSSIBLE" 

1690 PRINT"WITHOUT GETTING CRUSHED " 

1700 PRINT"YOU, THE USER VILL BE LOCATED AT" 

1710 PRINT"THE CENTER OF THE VIDEO DISPLAY" 

1720 PRINT"IN THE FORM OF A '+' SIGN YOUR" 

1730 PRINT' ONLY MOVEMENTS WILL BE STRAIGHT" 

1740 FRINT"UF OR STRAIGHT DOWN, ACCOMPLISHED" 

1750 PRINT"WITH THE U? ARROW AND DOWN" 

1760 PRINT"ARROW KEYS " 

17 70 PRINT 

1780 PRINT"FRESS A KEY " 

1790 X$=INKEY$;IF X§ = "" THEN 1790 

1800 PRINT 

1810 FRINT"TO TAKE ADVANTAGE OF ANY POINTS" 

1820 FRINT"YOU MUST BZ CONSTANTLY MOVING," 

1830 PRINT"UP OR DOWN. THE OUTER BOUNDRIES" 

1840 PRINT"OF THE VIDEO WILL CONTAIN" 

1850 PRINT"FLASHING ASTERISKS; FOR CONFUSION. 

1860 PRINT"ALSO CONTAINED IN THOSE BOUNDRIES" 

1870 PRINT"ARE TWO BLOCKS THAT," 

1880 PRINT"WITHOUT NOTICE, WILL MOVE VERY" 

1890 PRINT"OUICKLY TOWARD THE CENTER TO" 

1900 PRINT"YOUR LOCATION, IF YOU ARE SUCCESS- 

1910 PRINT"FUL IN MOVING OUT OF THE WAY" 

1920 PRINT"YOU CAN CONTINUE PLAYING, IF, ON" 

1925 FOR LX=lTO2000;NEXT 

1930 PRINT"THE OTHER HAND, YOU GET SMASHED" 
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1940 FRINT"FLAY VIU ADVANCE TO THE NEXT" 

i?50 PRINT"PLAYER, THIS IS ALSO TRUE IF" 

1955 FRINT'YQU COLLIDE INTO THE BLOCKS." 

1960 FOR LX=iTC2GQ0 NEXT 

1970 FRINT"FRESS A KEY, . 

1980 X$=INKEY5;IF X$ = "" THEN 1980 ELSE FRINT 

1990 FRINT"THE GAME ENDS WHEN EACH" 

2000 PRINT"PLAYER HAS FLAYED A TOTAL OF TWO" 

2010 FRINT M ROUNDS. THE FLAYER FINISHING WITH" 

2020 PRINT'THE HIGHEST POINTS WILL BE THE" 

2030 PRINT"VINNER " 

2040 PRINT 

2050 PRINT"NOV ENTER THE " , PL ; "FLAYERS" 

2060 PRINT'FIRST NAMES" 

2070 FOR I-1TOPL; INPUT N$ ( I ) 

2080 NEXT 

2090 PZ=1 

2100 PRINT NS(PZ);" WILL NOW FLAY, PRESS" 

2105 IF PZ>=2 OR TR>=2 THEN 2150 

2110 PRINT" A KEY WHEN READY " 

2120 X$ = INKEY$ : IF X$ = ,ln THEN 2120 

2130 CLS 

2140 RETURN 

2150 PRINT'THE ENTER KEY WHEN READY"; 

2160 INPUT X$TI=0; RETURN 

Variables and Strings 

X - For the poke graphics for the left side 

Y - For the poke graphics for the right side 

K - Character code for X,Y and above 

PN - Counter to set subscripted variables A(l) and A(2) for block 
start position 

L,R - For left and right movement of blocks 

TX,TL - For user character placement and used to signify character- 
area. TX is also for the user character if it is crushed. 

PI - Total points for each player 

PZ - Counter for the correct player 

E,F,T,E2,F2 - For the Print @ graphics for the outer areas of the 
display 

TQBC - For the top center and bottom center graphics 

KY - For key closure counter. Subscripted variable U (U(KY)) will 
insure that before any points are given, the user isn't pressing the 
same direction key repeatedly 

G - A constant used for the number of characters for upper/lower 
graphics 
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TI - Counter for point deduction, user asleep? 

T - For outer, upper and lower Print @ graphics 

LX - For time loop 

TP - For total points received by current player 

PZ - Counter for number of players 

TR - Total rounds played 

H - Counter for player 

FT - For players total points after 2 rounds 

WE - Points obtained during first round 

Explanation of the Program Lines 

Line 30 clears 500 bytes of memory for string storage and 
branches to the instructions. 

Lines 40-80 poke the graphic blocks on the left and right sides 
of the video. 

Line 100 insures that all poke graphics have been completed 
and then branches to the start of the game. 

Lines 110-130 continues the poke graphics if they are done. 

Lines 140-170 start the game and print the player's name and 
score. 

Lines 200-340 (and lines 600-680) keep all the graphics mov- 
ing. 

Lines 350-390 establish strings made up of characters or blank 
spaces. 

Lines 400-510 accept the user's up and down character move- 
ment. 

Lines 700-790 move the crusher blocks (left and right) and 
reset them if they coincide. 

Lines 800-870 checks whether or not the user is crushed. If he 
or she has been crushed, play advances to next person. If not, line 
820 tests the current and preceding key closure and the variable TI 
(time limit). If each condition is met the user's score will increase 
by amount at line 950. 

Lines 880-900 deduct an amount from users score if the time 
limit (TI) has been reached. This is to insure that the user's charac- 
ter doesn't remain in one location. 

Lines 910-920 print the player's score and then recycle and 
continue play. 

Lines 950-980 advance to the next player or terminate the 
game if all have played two rounds. 

Lines 990-1000 are used for player advance. 
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Lines 1010-1100 place the scores (and players) in order from 
the highest score to the lowest score. 

Line 1110 is used for the termination of the run. 

Lines 1120-1160 display the score when only one person is 
playing. 

Lines 1200-1230 set the subscripted variable WE to the user's 
first round score. 

Lines 1240-1280 set the subscripted variable FT to the user's 
final score. 

Lines 1300-1410 print the name of the top winner of game and 
then rest of players' names in descending order. 

Lines 1500-2160 are used for the number of players, their 
names and the general instructions. 

Line 2105 tests the variables PZ and TR to determine which 
player is playing. 
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TRAPPED 

You must trap the computer's piece. The drawbacks? The com- 
puter's piece can only be trapped in a left/right movement area. You 
must keep it pinned this way for a certain amount of time. Don't get 
burned by the computer's piece : six burns and you're out ! There 
are, of course, other hidden obstacles, which you'll discover soon. 
Refer to pages 1-3 for information on the sound routine. Note that 
the IBM version of this program is included in Appendix A, and the 
Apple version in Appendix B. 

Sample Run 

TRAPPED 

LIST INSTRUCTIONS? YES 

UP TO 10 PLAYERS CAN 
TRY TO OUTWIT THE COMPUTER AND 
MANEUVER ITS PIECE INTO A SITUATION 
WHERE IT WILL BECOME TRAPPED. 
THE COMPUTER'S PIECE WILL BE A 
SOLID BLOCK, YOURS 
WILL BE TWO SMALL BLOCKS, 
CHR$(179). THE COMPUTER WILL MOVE 
ITS PIECE ALL AROUND THE GAME 
BOARD, CHANGING DIRECTION WHEN IT 
SENSES AN OBSTACLE. YOU WILL 
FOLLOW THE COMPUTER'S PIECE OR 
YOU CAN MANEUVER IT TO A SECTION 
OF THE GAME BOARD WHERE IT WILL BE 



PRESS ENTER? 

TRAPPED, MEANING IT CAN ONLY MOVE 
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INSTRUCTIONS 
N PLAYERS" NMS 



INITIALIZE 
SOUND ROUTINE 



INITIALIZE 
VARIABLES 



OUTPUT OUTER- 
INNER GRAPHICS 



SELECT 
START POSITION 



MOVE COMPUTER 
PIECE 




RECHARGE COMP 
PIECE 




ADVANCE TO 
NEXT PLAYER 



SORT 
POINTS 



OUTPUT PLAYERS 
AND SCORES 



f STOP j 



Flowchart for Trapped. 

LEFT AND RIGHT. THE COMPUTER'S PIECE 
WILL CONTAIN A 'CHARGE' IF YOU 
SIMULTANEOUSLY END AT THE SAME SPOT 
THAT THE COMPUTER DOES, YOU'LL 
GET BURNED. SIX BURNS AND YOU'RE 
OUT OF THE GAME. YOU WILL MOVE 
YOUR PIECE USING ALL FOUR ARROW 
KEYS. WHEN YOU MOVE THE COMPUTER 
WILL BLANK ITS PIECE. YOU 
WILL BE ALLOWED ONLY 10 CON- 
SECUTIVE MOVES AT ONE TIME. 
ANYTIME YOU WISH TO MOVE YOUR 
PIECE, HOLD DOWN ANY ARROW KEY 
AND PRESS THE SPACE BAR. 
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PRESS ENTER? 

POINTS WILL BE DETERMINED BY HOW 
MANY MOVES IT TAKES YOU 
TO TRAP THE COMPUTER'S PIECE. 
REMEMBER, TO TRAP THE COMPUTER'S 
PIECE, ONLY ALLOW IT TO MOVE 
LEFT AND RIGHT. 

PRESS ENTER TO START? 



Program Listing 



)10 REH PROGRAM TITLE: < TRAPPED > 
20 CLS:CLEAR 100:DIH AA< I 2) , PI < 12 > , 1 1 < 12 > 
PRIHT CHR$(183>;" TRAPPED ";CHR$(187> 
PRINT: INPUr'UST INSTRUCTIONS" ;WS 
IF WS^'Y" OR WS^'YES" THEN GOSVB 3500 
60 CLS:G0SUB 3300:TU=1 
70 GQ = 1 :KH~0:CR=0 : RANDOM 
80 POKE 16526,0:FOKE 16527,122 
90 S1=3126 5:S2*S1+1:CC»0:BR*0:TP=1E+04:TR*TP 
100 REH BORDER GRAPHICS 
110 K3i5360:Y=K+63:C=l?l :U=0 



30 
40 
50 
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120 FOR I*XTOY:POKE 1,149 

130 POKE 1+960, 149.NEXT 

HO FOE I=X+64 TO X+INT< Y/ 1 9 ) +85 STEP 64 

150 POKE I,149:FOKE I +63 , 1 4 9 : NEXT : GOSUB 3450 

160 HEM INNER GRAPHICS 

170 IN=X+128 

180 R=IN+RND<40> : Rl =R : L=RND < 2 ) 

190 FOR UIN TO R ; POKE I,C 

195 IF L=l AND U< = 3 THEN POKE 1 + 64, C 

198 NEXT 

200 R2=RND<7> : R3=R2+RND ( 1 5 ) :GOTO 500 

210 FOR I=R1+R2 TO R1+R3 

220 POKE I,C:NEXT 

230 GOTO 560 

240 U = U+1 

250 IF VOS.THEN 180 

260 REM GRAPHICS FROM RIGHT SIDE 

270 FOR J^ITO RNDU0) 

280 FOR I=0TO4 

290 IF R(I)=0 THEN 310 

300 POKE R(I),C:R(I)=R<I)-1 

310 NEXT I, J 

320 REM START POSITION 

330 P=RND<16255) 

340 IF P<=15425 THEN 330 

350 IF PEEK(P)<>32 OR PEEK(P+2 ) < > 32 THEN 330 

355 IF <PEEK<P-64)+PEEK<P+64)>=382 THEN 330 

360 CP=F+2:POKE P,143:POKE CP,179 

370 REN NOVENENT OF COMPUTER PIECE 

380 S3=210:S4=25 

390 IF PE£K(P+64>=32 THEN A=i:GOTO 440 

395 POKE Sl,3Q:FOKE S2 , 1 90 : X=USR < > 

400 IF PEEK(P-64)=32 THEN A=2:GOTO 440 

405 POKE S1,30:POKE S2 , 20 : X=USR < ) 

410 IF PEEK(P-2>=32 THEN A=3:GOTO 440 

415 POKE S1,30:POKE S2 , S3 : X=USR ( ) 

420 IF PEEK(P+2)=32 THEN A=4:GOTO 440 

425 POKE S1,30;POKE S2 , S3 : XrUSR ( ) 

430 GOTO 810 

440 POKE P,32:IF FEEK(CP)*32 THEN 1700 

442 X$=INKEY$:IF X$ = " " THEN 900 

4 45 GOTO 1100 

450 ON A GOTO 460,470,480,490 

460 P*P+64:POKE P , 1 43 : MM=0 : GOTO 710 

470 P=>P-64:POKE P , 1 4 3 :MM«0 : GOTO 400 

480 FaP-2:FOKE P,143:GOTO 760 

490 F*P+2:POKE P,143:GOTO 420 

500 REM WITHIN LIMITS (BOARD GRAPHICS) 
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510 IF ABS<(RUR3)-IN)> = 60 THEN 200 

520 REM GAP TOO SMALL 

530 IF ABS( (Rl+R2)-R) < = 4 THEN 200 

540 IF R3<=9 THEN 200 

550 GOTO 210 

560 REM POKE MORE TO RIGHT 

570 IF ABS( UN+63)-(Rl+R3) )>=10 THEN 600 

580 X=X+C+1 : IN=X+12B:POKE IN,C 

590 GOTO 24 

600 R4=RND(8) : IF R4< = 3 THEN 600 

610 R4=R4+R1+R3 

620 R5=:R4 + RND(15) 

630 IF ABS(R5~R4)<=2 THEN 620 

640 IF ABS(R5-IN)>=62 THEN 680 

650 FOR I = R4 TO R5:POKE I,C 

660 IF L=l AND V<>4 THEN POKE 1+64, C 

670 NEXT 

680 REM VARIABLES (RIGHT SIDE GRAPHICS) 

6 90 FF=IN+62 : R (U> =FF : N(U) =ABS ( FF-R5 ) 
700 GOTO 580 

710 REM DOWN / UP - SEARCH LEFT / RIGHT 
720 IF PEEK(P-2)=32 THEN 410 
730 IF PEEK(P+2)=32 THEN 420 
740 IF A = l THEN 390 

7 50 GOTO 4 00 

760 REM LEFT / RIGHT - SEARCH DOWN / UP 

770 IF FE£K(P+64)=32 THEN 390 

780 IF PEEK(P-64)=32 THEN 400 

790 IF A=3 THEN 410 

800 GOTO 420 

810 REM TRAPPED (COUNTER) 

815 A(QQ)=A 

820 IF A(QQ)=A(QQ-1) THEN 880 

830 IF MM>=8 THEN 1240 

840 IF MM>=4 THEN S3=S3+ 1 : CR=CR+1 

850 IF S3>*255 THEN S3=255 

860 OQrQQ+l; IF QQ> = 3 THEN QQ=: 1 

870 GOTO 390 

880 IF FEEK(F+2)=179 OR PEEK ( P~ 2 ) = 1 7 9 THEN MM=MM+1 

8 90 GOTO 8 30 

900 REM USER PIECE / MOVE PER KEY 

910 KE=PEEK(25340) :REM SCAN KEYBOARD 

920 IF KE=136 THEN 970 

930 IF KE=144 THEN 990 

940 IF KE=192 THEN 1010 

950 IF KE = U0 THEN 1030 

960 CC*0;GOTO 450 

970 IF PE£K(CP-64)<>32 THEN 960 
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980 POKE CF,32:CF=CP-64 : GOTO 1050 

990 IF PEEK(CF+64)<>32 THEN 960 

1000 POKE CP,32 :CP=CP+64:GOTO 1050 

1010 IF FEEK<CP*2><>32 THEN 960 

1020 POKE CP,32 : CP = CF + 2 ; GOTO 1050 

1030 IF PEEK<CP-2)<>32 THEN 960 

1040 POKE CP,32:CP=CP-2 

1050 POKE CP,i79:TF=TF-l 

1060 POKE S1,30:POKE S2 , 1 95 : X=USR< ) 

1070 REM USER'S MOVES (COUNTER) 

1080 CC=CC+1:IF CC>=10 THEN CC=0:GOTO 450 

10 90 GOTO 900 

110 REM SOUND / COMPUTER PIECE 

1110 REM CHARGE RATE (DIMINISH BY PLUS) 

1120 POKE S1,30:POKE S2 , S4 : X = USR ( ) 

1130 CR=CR+1 

1140 IF CR)=1000 THEN GOSUB 1450:GOTO 1180 

1150 IF CR>=990 THEN S4=S4+10 

1160 IF S4>*255 THEN S4=255 

1170 GOTO 450 

1180 REM RECHARGE COMPUTER PIECE 

1190 POKE F,143;FOR C = l TO <(S4*2>-100> 

1200 POKE S1,30:POKE S2 , 1 5 : X=USR( ) 

1210 NEXT:CR=0 S4=25:POKE F,32 

1220 GOSUB 1510:GOSUB 3450:GOTO 450 

1240 REM TRAPPED ? 

1250 REM CHECK CHARGE RATE FIRST 

1260 IF CR>=925 THEN 1280 

1270 GOTO 12 90 

1280 CR=1000:GOTO 1370 

1290 REM TRAPPED COMP . PIECE 

130Q L=0 

1310 POKE P ( 32:FOR TI* 1T01 00 : NEXT 

1320 POKE F,143:FOR TI=lTO50 

1330 POKE S1,30:POKE S2 , 2 : X = USR ( ) 

1340 NEXT 

1350 L=L+1:IF i<=2 THEN 1310 

13 60 GOTO 16 00 

1370 GOSUB 1450;POKE P,32:MM=0 

1380 F=F+6 

139 GOTO 45 

1450 REM MESSAGE 

1460 MG=16345 : M$ ^"RECHARGING " 

1470 FOR I=lTO LEN(M$ ) 

1480 POKE MG,ASC<MID$(M$, 1 , 1) ) 

1490 MG=MG+1 :NEXT 

1500 POKE MG,32:RETURN 

1510 MG=16345 



227 



1520 FOR IalTO LEN<M$> 

1530 POKE MG, 149 

1540 MG=MG+1 :NEXT 

1550 POKE MG, 149:RETURN 

1600 REM MESSAGE (TRAPPED) 

1610 MG=16345 

1620 M$="** TRAPPED **" 

1630 GOSUB 1470 

164 GOTO 1910 

1700 REM USER "BURNED" 

1710 MG=16345 

1720 MS*"* USER BURNED *" 

1730 GOSUB 1470 

1740 REM LEAVE USER POSITION AS-IS 

1750 L = 0;MM=:0 

1760 POKE CP,32:FOR TI= 1TO 1 : NEXT 

1770 POKE CF,i79:FOR TI=iTO50 

1780 POKE S1,30:POKE S2 , 1 8 : X = U5R < ) 

1790 NEXT;IF t<=l THEN t=L+l:GOTO 1760 

1800 BR=BR+1 ;GOSUB 1510:GOSUB 3450 

1810 IF BR> = 6 THEN GOSUB 1830:GOTO 1870 

18 20 GOTO 4 45 

1830 L*0 

1840 FOR I=1T045 

1850 POKE S1,30:POKE 52 , 1 + 10 

i860 X=USR(0) ;NEXT.CLS:RETURN 

1870 PRINT 

1880 PRINT"YOU' VE BEEN BURNED" ; BR ; "TIMES" 

1890 PRINT"SUCKER !M":TP = 

1900 FRINT"YOUR OUT OF THE GAME . . , ". GOTO 2000 

1910 REM TRAPPED 

1920 GOSUB 1830 

1930 PRINT"YA GOT ME TRAPPED, TURKEY M ! " 

1940 PRINT"YOUR TOTAL POINTS NOV EQUAL "; 

1950 PRINT TP 

1960 PRINT"YOU MADE A TOTAL OF" ;TR~TF ; "MOVES" 

1970 FRINT"BEFORE TRAPPING ME " 

1980 POKE SI ,30:FOKE S2 ,255 

1990 X=USR(0) 

2000 REM PLAYER ADVANCE / POINTS 

2010 PI(TU)=TF 

2020 IF TU=N THEN 2100 

2030 TU=TU+i 

2040 FRINT'KEY ENTER ";IS(TU>; 

2050 INPUT V$ :CLS 

2060 GOTO 70 

2100 REM ALL PLAYED 

2110 REM SORT AMTS / PLAYERS 
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2120 IF N=l THEN 2220 

2130 F=0;AA=1 

2140 IF PI(AA) >=PI(AA+1) THEN 2190 

2150 PaPI(AA) :PI(AA)=PI(AA+1) 

2160 FI(AA+1)=P: IS = I$ (AA) 

217 I$(AA)=IS (AA+1 ) : IS<AA+1 >=I$ 

2180 F=l 

2190 IF AA<N THEN AA=AA+ 1 : GOTO 2140 

2200 IF Fsl THEN 2130 

2210 GOTO 2260 

2220 PRINT"YOU'VE PLAYED BY YOURSELF, AGAINST" 

2230 PRINT"THE COMPUTER. YOU WERE BURNED" ;BR 

2240 PRINT'TIMES. FINAL TRAPPING SCORE :*' i PI (TU) 

22 50 GOTO 2 33 
2260 1=1 

2270 PR1NT"BEST TRAPPER " ; I $ ( I ) 

2280 PRINT M TOTAL POINTS = ",P1U> 
2290 FRINT"FOLLOWING ";I5U) 

23 00 FOR U2TON:PRINT IS (I) ; 
23 10 PRINT" WITH A SCORE OF: H ; 
2320 PRINT PI ( I) 

2325 FOR TIslTOlOOQ :NEXT TI , I 
2330 PRINT 

2340 FRINT M END OF PROGRAM RUN " 

2350 FOR I=lTO100:POKE SI ,30: POKE S2,I+20 

2360 X=USR<0> :NEXT;FRINT 

2370 PRINT"UNLESS ALL WANT TO PLAY AGAIN ???" 

2380 PRINT"IF SO , TYPE RUN." 

2390 PR INT: FOR TU 1TO 1 5 00 : NEXT 

2400 PRINT"END 

2410 END 

3300 REM PLAYERS UMTS. / NAMES) 

3310 PRINT"£NTER NUMBER OF PLAYERS" 

3320 INPUT H 

3330 IF N<=0 OR N> = 11 THEN 3310 

3340 PRINT"NOW ENTER THE" ;N ; "PLAYER ' S" 

3350 PRINT"FIRST NAMES" 

3360 FOR I^ITON 

3370 INPUT 15(1) :NEXT 

3380 PRINT 

3390 PRINT"CURRENT PLAYER'S NAME" 

3400 PRINT"WILL BE PRINTED AT BOTTOM OF" 

34 10 PRINT"GAME BOARD " 

3420 FOR TI=lTO1200:NEXT 

3430 CLS 

34 4 RETURN 

3450 REM PLAYER 

3460 MG=16348 
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3470 FOR I=1T0 LEN(I$(TU) ) 

3480 POKE MG,ASC<MID$<I$(TV>,I,l)>:MG=MG+i 

3490 NEXTFOKE MG,32:RETURN 

3500 REM INSTRUCTIONS 

3510 PRINT" UP TO 10 PLAYERS CAM" 

3520 PRINT"TRY TO OUTWIT THE COMPUTER AND" 

3530 PRINT"MANEUVER ITS PIECE INTO A SITUATION" 

3540 FRINT"WHERE IT WILL BECOME TRAPPED," 

3550 PRINT"THE COMPUTER'S PIECE WILL BE A" 

3560 FRINT"SOLID BLOCK, YOURS" 

3570 PRINT"WILL BE TWO SMALL BLOCKS ,"; CHR$ ( 1 79 ) 

3580 FRINT"THE COMPUTER WILL MOVE" 

3590 FRINT"ITS PIECE ALL AROUND THE GAME" 

3600 FRINT"BOARD, CHANGING DIRECTION WHEN IT" 

3610 PRINT"SENSES AN OBSTACLE, YOU WILL" 

3620 PRINT"FOLLOW THE COMPUTER'S PIECE OR" 

3630 FRINT"YOU CAN MANEUVER IT TO A SECTION" 

3640 PRINT"OF THE GAME BOARD WHERE IT WILL BE" 

3650 INPUT"PRESS ENTER" ; W$ : CLS 

3660 PRINT"TRAPPED, MEANING IT CAN ONLY MOVE" 

3670 PRINT"LEFT AND RIGHT., THE COMPUTER'S PIECE" 

3680 PRINT"WILL CONTAIN A 'CHARGE', IF YOU" 

3690 PRINT"SIMULTANEOUSLY END AT THE SAME SPOT" 

3700 FRINT"THAT THE COMPUTER DOES, YOU'LL" 

3710 PRINT"GET 'BURNED', SIX BURNS AND YOU'RE" 

372 PRINT"OUT OF THE GAME. YOU WILL MOVE" 

3730 PRINT"YOUR PIECE USING ALL FOUR ARROW" 

3740 PRINT"KEYS. WHEN YOU MOVE THE COMPUTER" 

3750 PRINT M WILL 'BLANK' IT'S PIECE, YOU" 

3760 PRINT"WILL BE ALLOWED ONLY 10 CON-" 

3770 PRINT"SECUTIVE MOVES AT ONE TIME" 

3780 PRINT"ANYTIME YOU WISH TO MOVE YOUR" 

3790 FRINT"PIECE, HOLD DOWN ANY ARROW KEY" 

3800 PRINT"AND PRESS THE SPACE BAR" 

3810 INPUT"PRESS ENTER" ;W$ ; CLS 

3820 PRINT"POINTS WILL BE DETERMINED BY HOW" 

3830 PRINT"MANY MOVES IT TAKES THE USER" 

3840 PRINT"TO TRAP THE COMPUTER'S PIECE," 

3850 FRINT"REMEMBER, TO TRAP THE COMPUTER'S" 

3860 PRINT"PIECE, ONLY ALLOW IT TO MOVE" 

3870 PRINT"LEFT AND RIGHT." 

3880 INPUT"KEY ENTER TO START" ;W$ 

3890 CLS. RETURN 

Variables and Strings 

TU - Used in conjunction with user's name to identify player 
QQ - Used for left/right movement of computer piece 
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MM - Number of times computer piece moves left and right before 
final entrapment by the user ; used in conjunction with A(QQ) 

CR - Charge rate of computer's piece 

S1,S2 - For sound location, machine language routine 

CC - User's number of moves per key closure 

BR - Number of burns player receives 

TP - Total number of points allowable: one deducted for each user 
move 

TR - Used in final message for number of moves player made before 
trapping computer piece 

X,Y,C,U - Used for graphics and the game board 

IN,R,R1,R2,R3,R4,R5,L,FF,R(U),N(U) - Determine the length and 
width of the inner poke graphics (left to right, right to left) 

P - Used to determine the starting location of the computer piece 

CP - Users start location, two more than the variable P 

S3,S4 - Used in conjunction with computer piece for extra sound, 
along with variables SI and S2 

A — Determines route that computer's piece will take in conjunc- 
tion with P (peek) arguments 

KE - Key closure for user's moves. The arrow key must be pressed 
in conjunction with space bar for correct entry 

L - Used again for the length of sound output 

MG - Poke location for print messages 

PI(TU) - For each players point amount, will return (zero) if 
BR>=6 (user burned 6 times) 

I$(TU) - Player's name, turn 

N - Number of players (total) 

Explanation of the Program Lines 

Line 50 checks the entry of W$ for the print of the instructions 
at lines 3500-3890. Lines 3300-3440 (a GOSUB) will allow the entry 
of up to 10 players and their names. 

Line 70 initializes some of the variables for each player. 

Line 80 initializes the machine language subroutine. 

Lines 90-150 poke the outer graphics and then branch to the 
subroutine in lines 3450-3490 for the printing of the current player's 
name within the graphics. 

Lines 160-310 establish the inner graphics. When the variable 
L=l, a larger (double CHR$(191)) will be poked. Lines 500-550 
work in association with these lines to keep the graphics within 
limits. Also used with the inner graphics are lines 560-670, which 
move the graphics more to the right. Finally, the game board 
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graphics use lines 680-700 to establish the variables for the inner 
graphics. 

Lines 320-360 select the computer's start location randomly 
and establishes the user's start location at two more than the 
computer's. The arguments contained here assure that the start 
location will be in a blank area and that no borders are above or 
below the start location. 

Lines 370-490 are used for the movement of computer's piece 
and the sound output, which uses locations SI and S2. These lines 
use a search-ahead routine making sure the area ahead will be blank. 
Also used in conjunction with these arguments are lines 710-800, 
which assure that the computer's piece will have an alternate route 
to take unless trapped. Lines 460 and 470, where MM = (reset 
counter), insure that the computer will only be trapped in a left and 
right direction; i.e., it can only move left or right. 

Line 442 tests for the user's key closure. Holding down any 
arrow key will branch the flow to line 900. If none of the arguments 
are met (holding down the space bar, along with the selected arrow 
key) the program branches back to the computer piece movement. If 
any of the conditions are satisfied, the program makes sure that 
movement is toward a blank space, or else the movement cannot 
occur. 

Line 1050, where TP=TP-1, subtracts one point for each 
move from the total of 10,000 points that the player is allowed. 

Line 1060 outputs the user's sound. 

Lines 1070-1090 count the number of moves the player makes. 
These lines will only allow 10 consecutive moves at one time. When 
this counter reaches a count of 10, the program resumes with the 
computers movements in line 450. 

Lines 800-890 test to see if the computer's piece is actually 
being trapped (line 880). If it is, the variable MM is increased by 
one. If the count reaches 4, the pitch of the computer's sound will 
become higher and its charge will also increase. If the total count 
reaches 8 the computer's piece is trapped, and program flow 
branches to line 1240. 

Lines 1100-1170 increase and test the computer's charge. If 
the charge rate is greater than or equal to 990, then the pitch will 
change for the computer's piece. When the charge rate reaches 
1000, play comes to a halt until piece is recharged at lines 1180- 
1220. 

Lines 1240-1270 also test the charge rate of the computer's 
piece. If it is greater than or equal to 925, the charge rate will 
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automatically become 1000. This will give the computer a break by 
advancing its piece 6 places to the right in lines 1280 to 1370. 

Lines 1290-1360 are used for the final trapping of the com- 
puter's piece. Play will then branch to line 1600. 

Lines 1420-1820 are for the print messages at the lower part of 
the game board. They also test burn amounts (BR) that the user has 
received. If BR is greater than or equal to 6, program flow branches 
to line 1870, where the player loses all his points, and the next 
player is given a chance to play (if applicable). 

Lines 1910-1990 print the messages if the computer's piece is 
trapped. 

Lines 2000-2060 advance to the next player, if the condition 
TU= N is not met. Scores points are also set with with subscripted 
variable PI(TU). 

Lines 2100-2200 sort all players according to their scores, 
placing the highest scorer first and so on. 

Lines 2220-2250 displays a message when there is only one 

player. 

Lines 2260-2410 print the players' names and their scores. 

Lines 3300-3440 allow the entry of up to 10 players and their 
first names. 

Lines 3450-3490 print the player's first name at the lower part 
of the game board when it is his or her turn. 

Lines 3500-3890 print the general instructions. 
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EVERYBODY THAT WANTED 

OFF ON THE FIFTH FLOOR- 
HERE IT IS! 







NOBODY WANTS } 
OFF HERE!! J 



ELEVATOR 

Guess what? You've been fired from your present job! Guess what 
else? The computer has hired you to be an elevator attendant! If 
you don't have a sharp memory, you'll get paid nothing. You see, you 
must remember what is on every floor and who wants off there. 
Some of the customers might even give you some tips! All is not 
lost, not yet that is... Note that the IBM version of this program is 
included in Appendix A, and the Apple version in Appendix B. 

Sample Run 

*** ELEVATOR *** 

INSTRUCTIONS REQUIRED (Y/N)?X 

FIRST NAME? FUZZY 

PRESENT OCCUPATION? BELLHOP 

YOU HAVE JUST BEEN FIRED AS A BELLHOP" 

BUT, YOU ARE IN LUCK !! THE 

COMPUTER HAS JUST HIRED YOU TO 

BE AN ELEVATOR ATTENDANT. YOUR 

JOB WILL BE QUITE SIMPLE, FUZZY. 

ALL YOU HAVE TO DO IS REMEMBER 

ALL THE FLOORS (16 TOTAL) 
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AND WHAT IS CONTAINED ON EACH 
OF THEM, SO YOU CAN TAKE ALL 
OF MY CUSTOMERS TO THEIR 

RIGHT LOCATION 

PRESS A KEY... 

I ALMOST FORGOT TO TELL YOU, ALL 
CUSTOMERS, WHEN STEPPING ONTO THE 
ELEVATOR, WILL TELL YOU WHAT THEY 
WANT; THEY WILL ONLY TELL YOU THIS 
ONCE. FOR EVERY CUSTOMER YOU 
PLACE ON THE RIGHT FLOOR, YOU'LL 
BE PAID $10.00, THAT IS THE ONLY 
WAY YOU'LL GET PAID. CUSTOMERS 
WILL BE GETTING ON THE ELEVATOR 
AT DIFFERENT STOPS; YOU MUST 
REMEMBER THESE ALSO, FUZZY. 
PRESS A KEY- 
HERE ARE THE FLOORS AND TITLES: 

2) WOMEN'S CLOTHES 

3) MENS CLOTHES 

4) CHILDREN'S CLOTHES 

5) INFANT'S CLOTHES 

6) TOYS 

7) CARPETS 

8) COMPUTERS 

9) APPLIANCES 

10) FURNITURE 

11) HARDWARE SUPPLIES 

12) HOBBY SUPPLIES 

13) AUTO SUPPLIES 

14) OFFICE SUPPLIES 

15) BATHROOM ITEMS 

16) BEDROOM ITEMS 

YOU SHOULD BE ALL SET, FUZZY 
FUZZY, YOU NOW HAVE 7 CUSTOMER(S) 
GETTING ON MY ELEVATOR. 

THE CUSTOMERS' DESTINATION(S): 
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COMPUTER FLOOR 
AUTO SUPPLIES 
CARPET FLOOR 
HARDWARE SUPPLIES 
HARDWARE SUPPLIES 
COMPUTER FLOOR 
INFANT'S CLOTHES 
PRESS A KEY- 
PRESS U FOR <UP> 
PRESS D FOR <DOWN> 
THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 
FLOOR NUMBER 5. 
1 OF THE CUSTOMER(S) JUST 
STEPPED OFF OF MY ELEVATOR, FUZZY. 
PRESS U FOR <UP> 
PRESS D FOR <DOWN> 
THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 
FLOOR NUMBER 7. 
1 OF THE CUSTOMER(S) JUST 
STEPPED OFF OF MY ELEVATOR, FUZZY. 
PRESS U FOR <UP> 
PRESS D FOR <DOWN> 
THEN ENTER THE FLOOR NUMBER. 
DIRECTION: DOWN 
FLOOR NUMBER 5. 

FUZZY NO CUSTOMERS WANTED OFF 
ON THIS FLOOR- 
PRESS U FOR <UP> 
PRESS D FOR <DOWN> 
THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 
FLOOR NUMBER 17 
PRESS U FOR <UP> 
PRESS D FOR <DOWN> 
THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 
FLOOR NUMBER 10 
FUZZY NO CUSTOMERS WANTED OFF 
ON THIS FLOOR- 
PRESS U FOR <UP> 
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PRESS D FOR <DOWN> 
THEN ENTER THE FLOOR NUMBER. 
DIRECTION: DOWN 
FLOOR NUMBERJL 

FUZZY NO CUSTOMERS WANTED OFF 
ON THIS FLOOR- 
PRESS U FOR <UP> 
PRESS D FOR <DOWN> 
THEN ENTER THE FLOOR NUMBER. 
DIRECTION: DOWN 
FLOOR NUMBERJL 
YOU ARE ON THAT FLOOR, FUZZY!! 
PRESS U FOR <UP> 
PRESS D FOR <DOWN> 
THEN ENTER THE FLOOR NUMBER. 
DIRECTION: DOWN 
FLOOR NUMBER 8_ 

2 OF THE CUSTOMER(S) JUST 
STEPPED OFF OF MY ELEVATOR, FUZZY. 
FUZZY YOU JUST HAD 5 MORE 
CUSTOMERS STEP ONTO THE 
ELEVATOR. THE DESTINATION(S): 
WOMEN'S CLOTHES 

CARPET FLOOR 
BATHROOM ITEMS 
BEDROOM ITEMS 
HARDWARE SUPPLIES 
PRESS A KEY- 
PRESS U FOR <UP> 
PRESS D FOR <DOWN> 
THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 
FLOOR NUMBER U 

3 OF THE CUSTOMER(S) JUST 
STEPPED OFF OF MY ELEVATOR, FUZZY. 
PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 

DIRECTION: UP 

FLOOR NUMBERJ. 

IF YOU WANT TO GO UP, USE A 

HIGHER NUMBER THAN THIS FLOOR. 



237 



( START j 




Flowchart for Elevator. 

PRESS U FOR <UP> 
PRESS D FOR <DOWN> 
THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 
FLOOR NUMBER 12 

FUZZY, NO CUSTOMERS WANTED OFF 
ON THIS FLOOR- 
FUZZY, YOU JUST HAD 4 MORE 
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CUSTOMERS STEP ONTO THE 
ELEVATOR. THE DESTINATION (S): 
MEN'S CLOTHES 
FURNITURE FLOOR 
WOMEN'S CLOTHES 
GROUND FLOOR 
PRESS A KEY- 
PRESS U FOR <UP> 
PRESS D FOR <DOWN> 
THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 
FLOOR NUMBER 13. 
1 OF THE CUSTOMER(S) JUST 
STEPPED OFF OF MY ELEVATOR, FUZZY. 
FUZZY, YOU JUST HAD 4 MORE 
CUSTOMERS STEP ONTO THE 
ELEVATOR. THE DESTINATION (S): 
WOMEN'S CLOTHES 
WOMEN'S CLOTHES 
TOY FLOOR 
MEN'S CLOTHES 
PRESS A KEY- 
PRESS U FOR <UP> 
PRESS D FOR <DOWN> 
THEN ENTER THE FLOOR NUMBER. 

STOP 

This is not a complete run. 

Program Listing 

10 HEM PROGRAM TITLE: ELEVATOR 

20 CLS:W«="S5*#*#*#*" 

30 DIM FU0),FS(40>,GSU0) 

4 RANDOM 

50 PRINT TAB! 10)"*** ELEVATOR ***" 

6 PRINT 

70 PRINT" INSTRUCTIONS REQUIRED (Y/N)"; 

80 INPUT I*: IF IS="N" THEN N=l 

90 INPUT"FIHST NAME";NS 
100 PRINT: IF N=l THEN 230 
110 INPUT"PRESENT OCCUPATION" ; PS 
120 PRINT"YOU HAVE JUST BEEN FIRED AS A 
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125 PRINT PS; M ! ! " 

130 PRINTOUT, YOU ARE IN LUCK !! THE" 

140 PRINT'COMFUTER HAS JUST HIRED YOU TO" 

150 PRINT"BE AN ELEVATOR ATTENDANT. YOUR" 

160 PRINT" JOB WILL BE QUITE SIMPLE, ";NS 

170 PRINT"ALL YOU HAVE TO DO IS REMEMBER" 

180 PRINT M ALL THE FLOORS (16 TOTAL)" 

190 PRINT"AND VHAT IS CONTAINED ON EACH" 

200 PRINT"OF THEM, SO YOU CAN TAKE ALL" 

210 PRINT"OF MY CUSTOMERS TO THEIR" 

220 PRINT"RIGHT LOCATION " 

230 REM WHAT'S ON EACH FLOOR 

240 FOR 1=2 TO 19:READ FS(I):NEXT 

250 IF N=l THEN 370 ELSE GOSUB 2150:PRINT 

260 PRINT"I ALMOST FORGOT TO TELL YOU, ALL" 

270 PRINT"CUSTOMERS, WHEN STEPPING ONTO THE" 

280 PRINT"ELEVATOR, WILL TELL YOU WHAT THEY" 

290 PRINT"WANT, THEY WILL ONLY TELL YOU THIS" 

3Q0 PRINT"ONCE, FOR EVERY CUSTOMER YOU" 

310 PRINT"PLACE ON THEIR RIGHT FLOOR, YOU'LL" 

320 PRINT"BE PAID 510,00, THAT IS THE ONLY" 

330 PRINT M WAY YOU'LL GET PAID. CUSTOMERS" 

340 PRINT"WILL BE GETTING ON THE ELEVATOR" 

350 PRINT**AT DIFFERENT STOPS; YOU MUST" 

355 FRINT"REMEMBER THESE ALSO, ";NS;"," 

360 GOSUB 2150 

370 PRINT"HERE ARE THE FLOORS AND TITLES;" 

380 FOR 1=2 TO 16 

390 PRINT I , ") ";FS(I> ; 

395 IF 1=8 THEN TT= I * 2 ; PR INT ; GOSUB 2190 

300 IF I)=2 AND I<=5 THEN 440 

410 IF I>=6 AND I< = 10 THEN PRINT:GOTO 470 

420 IF I> = H AND K = 14 THEN 450 

430 IF I>=15 AND I< = 16 THEN 460 



440 PRINT" 
450 PRINT" 
460 PRINT" 



, F$( 17) :GOTO 470 

iFS (18) :GOTO 470 

;F$(19) 

470 IF RX=i THEN RETURN ELSE NEXT 
475 REM VARIABLE RX FOR PRINT ELEMENTS 
480 FOR 1=1 TO 6.PRINT:NEXT.TT=TT+900 
490 GOSUB 2190 :CLS;C=0 ,GK=0 
500 PRINT"YOU SHOULD BE ALL SET " ;N$ 
510 TT=TT-900. GOSUB 2190:RX=1 
520 REM GET CUSTOMERS 
530 C=RND(PEEK(33)+1 ) 

540 PRINT NS;" YOU NOW HAVE" ; C ; "CUSTOMER ( S ) " 
550 PRINT"GETTING ON MY ELEVATOR-" 
560 SEM GET C RESPONSES 
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570 1=1 

580 REM FLOOR NUMBER 

590 F = RND(PEEK(49) + i) : IF F=l THEN 590 

595 IF F=TF THEN 590 

600 F(I)=F: 1=1+1 

610 IF K=C THEN 590 

620 REM FLOOR TITLES 

630 FOR 1=1 TO C 

640 G$(I)=F$(F(D) 

650 NEXT 

660 GOSUB 2190:FRINT 

670 PRINT U THE CUSTOMERS DESTINATION< S) : " 

680 FRINT:FOR 1=1 TO C 

690 PRINT G$(I); ,,n ; 

700 F=F(I) 

710 IF F> = 2 AND F<=5 THEN 76 

720 IF F> = 11 AND F< = 14 THEN 770 

730 IF F>=15 AND F< = 16 THEN 780 

740 PRINT" FLOOR" 

750 NEXT:GOTO 790 

760 GOSUB 440;GOTO 750 

770 GOSUB 450;GOTO 750 

780 GOSUB 460:GOT0 750 

790 GOSUB 2150 

800 CLS 

810 PRINT"FR£SS U FOR <UP>" 

820 PRINT"PRESS D FOR <DOWN>" 

830 PRINT"THEN ENTER THE FLOOR NUMBER" 

840 NN=0 :REM DIRECTION 

850 GOSUB 2160 

860 D$=A$:IF D$ = "U" D$="UF" : GOTO 870 

865 IF D$= M D" THEN D$ = *'DOWN n : GOTO 870 

868 GOTO 950 

870 PRINT"DIRECTION: ";D$ 

880 FRINT"FLOOR NUMBER"; 

890 INPUT FR 

895 IF FR=1 AND TF=0 THEN 1280 

900 IF FRU OR FR>16 THEN 800 

905 IF FR=TF THEN 1280 

910 IF FR<TF AND D$ = ,l UP M THEN 1260 

915 IF FR>TF AND D$="DOWN" THEN V=l:GOTO 1260 

920 GOSUB 2190:CLS:REM PAUSE BEFORE START 

930 IF D$="UP M THEN 970 

940 IF D$="DOVN n THEN 1040 

950 PRINT n SELECT A DIRECTION ";N$; n !! H 

960 PRINT.GOTO 810 

970 REM "UP" 

980 IF TF>=17 THEN 1030 
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990 GOTO 1300 
1000 PRINT"YOU ARE ON THE ";T$;" FLOOR ";N$ 
1010 PRINT"YOU CAN NOT GO ANY ";H$;"M H 
1020 GOTO 960 

1030 TSs'TOP" :H$="HIGHER" ;GOTO 1000 
104 IF TFOl THEN 10 60 
1050 GOTO 1070 

1060 T$ = ' r BOTTOM":H$ = "LOWER":GOTO 1000 
1070 REM "DOWN" CONTINUED (MOVEMENT) 
1080 FS=P-512:NN=1 

1085 IF FF>=58 AND FFU64 THEN 1220 
1090 POKE P,FF 
1100 FOR T=l TO 40:NEXT 
1110 POKE P,32;POKE F + 1 , 32 : F=P-64 
1120 IF POFS THEN 1085 
1130 REM CONTINUE IF NOT ON FLOOR 
1140 IF TFOFR THEN 1160 
115 GOTO 1500 
1160 FS=FS-448 
1170 IF FO15390 THEN 1190 
1180 GOTO 1085 

1190 POKE F,32:FOKE P+ 1 , 32 : P = 1 6350 
1200 F5 = F-512;FF=:FF-1 :TF=TF-I 
1210 GOTO 1085 
1220 REM FLOORS ABOVE 9 
1230 POKE F,49:POKE P+l f FF-10 
1240 IF NN*1 THEN 1100 
1250 GOTO 1340 

1260 PRINT'TF WANTING TO GO ";D$;" , USE A" 
1265 IF Vsl V=0:PRINT H USE A LOWER NUMBER . ": GOTO 1275 
1270 PRINT"HIGHER NUMBER THAN THIS FLOOR " 
1275 GOTO 1290 

1280 PRINT"YOU ARE ON THAT FLOOR, ";N$;" M" 
1290 GOSUB 2190:GOTO 800 
1300 REM "UP" MOVEMENT 
1310 IF TF=0 THEN 1460 

1320 FS=P+512:IF FS>=16350 THEN FS=16350 
1325 IF FF>=58 AND FF<=64 THEN 1220 
1330 POKE F,FF 
1340 FOR Tal TO 50:NEXT 
1350 POKE F,32":POKE P+ 1 , 32 : P = P + 6 4 
1360 IF POFS THEN 1325 
1370 REM CONTINUE IF NOT ON FLOOR 
1380 IF TFOFR THEN 1400 
13 90 GOTO 150 
1400 FSsFS+448 
1410 IF P> = 1 6350 THEN 1430 
1420 GOTO 1325 
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1430 POKE P,32:POKE P + l , 32 : P = 1 5 39 

1440 FS=:P+512:FF = FF+1 ;TF=TF+1 

14 50 GOTO 132 5 

1460 TF=1:P=15902;FF=:49 

1470 FS=P+448:GGTO 1325 

1500 REM ON FLOOR REQUESTED 

1510 IF FF>=58 AND FFU64 THEN 1530 

1520 POKE F,FF;GOTO 1540 

1530 POKE P,49:POKE P+1,FF-10 

154 FOR 1=1 TO C 

1550 IF FR=F(I> THEN 1570 

1560 NEXT;GOTO 1600 

1570 PA=PA+10:KG=KG+1 

1580 F(I)=0:XX=1 

1590 GOTO 1560 

1600 REM DID CUSTOMERS WANT OFF HERE 

1610 IF XX = THEN 1630 

1620 XX*0:GOTO 1770 

1630 PRINT N$," NO CUSTOMERS WANTED OFF" 

1640 PRINT M ON THIS FLOOR " :NC=NC+1 

1645 HJsHJ+1-IF HJ>«4 THEN HJ=0:FZ=1 

1650 REM MORE CUSTGMERS STEPPING ON 

1655 AA=RND(2)IF JV*1 THEN 1730 

1660 IF FZ = 1 OR FR^l THEN AA=1:FZ=0 

1670 IF AA=1 THEN 1690 

1680 GOTO 1730 

16 90 YU=RND(5) : YY=C :C*C+YU : C2=YU 

1700 IF C>=59 THEN JV= 1 : C=C-C2 ; GOTO 1730 

1710 REM GET DESTINATIONS 

1720 GOTO 1800 

1730 REM CONTINUE (IF NOT FINISHED) 

1740 KG=0: IF GK>=C THEN 1940 

1750 GOSUB 2190 

1760 GOTO 800 

1770 PRINT KG, "OF THE CUSTOMER(S) JUST" 

1780 FRINT"STEPPED OFF OF MY ELEVATOR, "; 

1785 PRINT N$, M ": GOSUB 2700 

1790 GK=GK+KG:GOTO 1650 

1800 REM YY MORE DESTINATIONS 

1810 YU=ABS(C-YY) :IF GK)C THEN 1940 

1820 PRINT N$, M YOU JUST HAD" ; YU; "MORE " 

1830 PRINT n CUSTOMERS STEP ONTO THE" 

1840 PRINT"ELEVATOR THE DESTINATION(S ) : ' 

1850 KG=0:FRINT:FOR I=YY+i TO C 

1860 F=RND(PEEK(49)+1) 

1865 IF F=TF THEN 1860 

1870 IF F = l THEN F$ ( 1 ) ="GROUND" : FZ = 1 
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1880 F(I)=F:NEXT:REM FLOORS 

1890 REM TITLE OF FLOORS 

1900 FOR UYY+1 TO C 

1910 G$(I)=F$(F( I) ) :NEXT 

1920 FOR UYY+1 TO C 

193 GOTO 6 90 

19-30 REM STOP / CONT 

1950 PRINT;PRINT"YOU HAVE NOW COLLECTED: " 

1960 PRINT USING W$ ; PA : PR INT : GOSUB 2190 

1965 PRINT:GOSUB 2500 

1970 IF JV^l OR GK>=C THEN 1990 

1980 GOSUB 2190:GOTO 800:REM ALL NOT OFF 

1990 PRINT:GOTO 2300 

2000 REH DATA FOR FLOORS 

2010 DATA WOMEN'S, MEN'S, CHILDREN'S, INFANT'S 

2020 DATA TOYS , CARPET, COMPUTERS 

2030 DATA APPLIANCES , FURNITURE , HARDWARE 

2040 DATA HOBBY , AUTO , OFF ICE 

2050 DATA BATHROOM, BEDROOM 

2060 DATA CLOTHES , SUPPL I ES , ITEMS 

2070 REM DATA ELEMENT 17 WILL BE USED 

2080 REM WITH ELEMENTS 2 - 5 

2090 REM DATA ELEMENT 18 WILL BE USED 

2100 REM WITH ELEMENTS 11-14 

2110 REM DATA ELEMENT 19 WILL BE USED 

2120 REM WITH ELEMENTS 15 & 16 

2150 PRINT:FRINT"PRESS A KEY " 

2160 A$=INKEYS 

2170 IF A$ = ,,M THEN 2160 

2180 RETURN 

2190 REM TIME LOOP 

2200 FOR T=l TO TT:NEXT 

2210 GOTO 2180 

2300 REM CONTINUE ? 

2310 FRINT r, WOULD YOU LIKE TO TAKE ON" 

2320 PRINT'SOMEMORE CUSTOMERS " ;NS 

2330 PRINT"YOUR TOTAL EARNINGS:"; 

2340 PRINT USING W$ ; PA \ 

2350 INPUT A5 

2360 IF A$<>"Y" AND A$<>"YES" THEN 2400 

2370 TT=2000: JV=0: PRINT 

2380 PRINT"YOU ARE ON FLOOR " ;TF 

2390 NC^0:GOTO 490 

2400 PRINT 

2410 PR1NT H END OF ELEVATOR." 

2 4 20 END 

2500 REM POINT SCALE / PAY DEDUCTION 

2510 IF NC< = THEN NC=0:RETURN 
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2520 PRINT"YOU HADE" ;NC , "STOPS THAT WERE" 

2530 PRINT M NOT NECESSARY " ;NS;". YOU" 

2540 PRINT"WILL TAKE A DEDUCTION IN PAY" 

2550 PRINT"QF $20.00 FOR EACH ONE OF" 

2560 PRINT"THOSE STOPS, TOTAL"; 

2570 NN=NC*20 ;PRINT USING W$ ;NN 

2580 PRINT"LEAVING YOU"; 

2590 PA=FA-NN 

2600 PRINT USING V$;PA:GOSUB 2190 

2610 RETURN 

2700 REM ANY TIPS ? 

27 10 IF KG<=1 THEN RETURN 

2720 AA=RND<2) 

2730 IF AA=i THEN RETURN 

2740 TI=RND( 100) 

2750 FA=FA+TI 

276 PRINT 

2770 FRINT n YOU'RE IN LUCK ";N$; N , A" 

2780 PRINT"NICE CUSTOMER JUST GAVE" 

2790 FRINT"YOU A TIP OF"; 

2800 PRINT USING V$ ;TI 

2810 GOSUB 2190 :RETURN 



Variables and Strings 

W$ - Used for all money amounts 

N$ - First name of user 

N - 0/1 variable for list of instructions 

P$ - User's current occupation 

F$(I) - Titles of floors 

TT - Time (pause) loop 

RX - For print statements from data list 

C - Number of floors 

GK - Number of correct stops 

TF - Present floor number 

F(I) - Number of each floor (random) 

G$(I) - Title of floor (random) 

FR - Input floor number 

D$ - Direction, up or down 

NN - For downward direction 

V - 0/1 conditional variable for print statements 

T$,H$ - For print statements 

FF - Floor number 

P,FS - Poke locations 

PA - Amount of pay 
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KG - Correct floor 

XX - 0/1 condition, correct floor 

NC - Counter, unnecessary stops 

HJ - Counter, user guessing 

FZ - Used in conjunction with HJ 

JV - Number of floors reached 

AA - Random 1 or 2 for selection of more patrons getting on the 

elevator 
YU - Random amount for more customers 
YY - For extra print elements (more customers getting on elevator) 
C2 - Equals the amount of YU. If C (floors) is greater than or equal to 

59, C will equal C minus C2 (the amount selected) 
YU - Used again as the ABS amount of C minus YY 
TI - Random amount for any tips user might receive 



Explanation of Program Lines 

Line 20 establishes the format in which amounts of money will 
be printed. 

Line 30 contains the dimension statements for the arrays 
containing the floors and their titles. 

Lines 50-360 display the general instructions if they are 
needed. 

Lines 370-480 prints all floor numbers and titles. These are 
only displayed for a predetermined amount of time (variable TT) so 
the user will be dependent upon his or her memory. 

Line 490 initializes the variables C and GK so that if the 
program is played more than once, these will be reset to (zero). 

Lines 520-550 select a random number of customers, up to and 
including 10. 

Lines 560-610 select C floor numbers at random. The IF F=l 
THEN 590 in line 590 insures that floor 1 will not be chosen during 
the first selection process. The IF F=TF then 590 in line 595 
insures that the floor the user is currently on will not be chosen at 
the beginning of any round of play. 

Lines 620-650 select the titles of the floors. F$(F(I)), and 
assigns these to G$(I). 

Lines 660-790 print all floor titles selected. The user will be 
allowed to study these titles for as long as he or she wishes. 

Lines 810-850 ask the user to input a direction, either down 
<D> or up <U>. If the variable NN is equal to 1, the direction will 
be downward. 
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Lines 860-865 set the contents of D$ to A$, which is the 
direction the user entered. 

Line 868 loops to a print statement in line 950 and then back to 
line 810, if the user does not select <D> or <U> for a direction. 

Lines 870-940 ask the user for a floor number (line 890, vari- 
able FR). 

Line 895 is used only at the beginning of play. If the user 
selects floor 1, program branches to a print statement in line 1280 
and then back to line.800. 

Line 900 insures that selected floor number is not less than 1 or 
greater than 16. 

Line 905 branches to a print statement if the user inputs the 
current floor (TF) he or she is on. 

Lines 910-990 test each direction and the value of each floor 
number to see if they are coordinated. If they are not valid, the 
program will branch to a suitable print statement. 

Lines 1000-1060 are the print statements displayed if user 
tries to go below floor 1 or above floor 16. 

Lines 1070-1470 are used for the movements of the elevator 
floor numbers to simulate the motion of the elevator. These lines 
will either move elevator down or up and poke the floor numbers in 
the video memory. 

Lines 1500-1590 compare the current floor number with the 
floor number in memory F(I). If the selected floor does match, 
variable PA (for pay) is increased by 10; variable KG, for total 
correct floors, is increased by 1. Subscripted variable F(I) is then 
equal to (zero), so that it is not matched again during the loop. 
Variable XX is then equal to 1 because a customer did want off on the 
inputted floor. 

Lines 1600-1620 test the value of the variable XX. If it is equal 
to (zero), no customers wanted off. If it is equal to 1, one or more 
customers did get off. 

Lines 1630-1645 display the print statement indicating that no 
customers wanted off. 

Lines 1650-1700 select a number of additional elevator cus- 
tomers if AA is equal to 1. If the variable JV is equal to 1, the number 
of customers (variable C) has reached a limit of 59, and no more 
customers will be permitted on the elevator. Line 1670 tests the 
amount of AA. If itisequalto 1, the program will branch to line 1690, 
where up to 5 more customers will be allowed onto the elevator. 

Lines 1710-1720 branches to line 1800 for the additional 
(YY+1 TO C) destinations. 
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Lines 1730-1760 continues the program if there are still cus- 
tomers who want to go to a certain floor. 

Lines 1770-1790 display the message telling the user how 
many customers got off of the elevator. Line 1785 branches to a 
GOSUB to see if the user might have received a tip. 

Lines 1800-1840 display the message telling the user how 
many customers stepped onto the elevator. 

Lines 1850-1930 select the number of floors and their titles. 
The program then branches back to line 690 for the printing of the 
titles. This loop begins at line 1920 and terminates at the next 
statement in line 650. 

Lines 1940-1990 print the total amount the user has collected 
and then branch to line 2500 to see if the user had made any 
unnecessary stops. If he did, the total number of unnecessary stops 
is multiplied by 20 and deducted from his or her total pay. Line 1970 
tests variables JV and GK. If neither conditions is met, the program 
resumes at line 800 (direction/floor entry). If either condition is 
met, the program branches to line 2300. 

Lines 2300-2420 continue or stop the program, print the user's 
total earnings, and ask if he or she would care to earn more. 
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FAREWELL 

With a quick eye you'll follow the asterisk to the computer's 
selected location within a 6 by 5 matrix of letters. All you'll need to 
do is tell the computer what letter location it landed on. Get it right 
and you'll gain 1000 points; get it wrong and you'll lose the same 
amount. Land on a cobra location... and you're dead! Note that the 
IBM version of this program is included in Appendix A, and the 
Apple version in Appendix B. 

Sample Run 

***FAREWELL*** 

NUMBER PLAYING (1-10)? 2 
THE 2 PLAYERS FIRST NAMES 
? MAC 
? SARAH 

ANY OF YOU NEED TO SEE 
THE INSTRUCTIONS? YES 
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POINTS PLUS 



PRINT 
INSTRUCTIONS 



SET 26 LETTERS 



ARRANGE RANDOMLY 



SET 4 BLANK SPS 



MOVE BLANK SPACES 



SELECT COBRA POS 




COMP SELECT 
POSITION 



USER MATCH 
POSITION 





f STOP j 



FINAL 
MESSAGE 



USER 
STRUCK-DECEASED 



Flowchart for Farewell, 
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SELECT A POSITION 
BY LETTER ONLY?- 

PLAYER: 

READ CAREFULLY, IT COULD MEAN 
YOUR LIFE ( OR THE GAME!!)... 
EACH PLAYER WILL SEE AND STUDY A 
MATRIX OF 6 BY 5 SQUARES OR 
POSITIONS, THESE WILL BE LABELED WITH 
THE LETTERS A THROUGH Z, WITH 
4 SPACES BLANK. TO PLAY: 
THE COMPUTER WILL SELECT 5 
POSITIONS AND PLACE COBRAS 
WITHIN EACH. THE COMPUTER WILL 
SHOW YOU WHERE 3 OF THE COBRAS ARE 
PRESS ENTER, PLEASE? 

NOW THE COMPUTER WILL SELECT A 
POSITION AND FLASH AN ASTERISK 
THERE. WHAT EACH PLAYER MUST DO 
IS ENTER THAT POSITION. IF YOU 
ARE CORRECT, YOU'LL GAIN 1000 
POINTS: IF INCORRECT, YOU'LL 
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LOSE 1000 POINTS, IF. .YOU SELECT 
A POSITION WHERE A COBRA IS... 
YOU'RE OUT OF THE GAME, DEAD !! 
SELECTION OF POSITIONS WILL CON- 
TINUE FOR AS LONG AS EACH PLAYER 
WANTS, OR 21 POSITIONS HAVE BEEN 

OMITTED 

PRESS ENTER, TO START? 



Program Listing 

10 REM PROGRAM TITLE: FAREWELL 

15 CLS:RANDOM 

20 PRINT"*** FAREWELL ***" 

25 PRINT 

30 INFUT'NUMBER PLAYING U - 1 ) " ; A 

35 IF A<1 OR A>10 THEN 25 

40 PRINT"THE";A; "PLAYERS FIRST NAMES'* 

45 FOR 1=1 TO A 

50 INPUT Q$(I) :NEXT 

55 PRINT:U=1 

60 PRINT"ANY OF YOU NEED TO SEE" 

65 INPUT"THE INSTRUCTIONS" j X$ 

70 IF X$<> M Y" AND X$<>"YES" THEN 210 

75 PRINT 

80 PRINT M READ CAREFULLY, IT COULD MEAN" 

85 FRINT"YOUR LIFE (OR THE CAME!!)..." 

90 PRIMT"EACH PLAYER WILL SEE AND STUDY A" 

95 PRINT"MATRIX OF 6 BY 5 SQUARES OR" 

100 PRINT"POSITIONS. THESE WILL BE LABELED WITH" 

105 PRINT-THE LETTERS A THROUGH Z WITH" 

110 PRINT"4 SPACES BLANK, TO PLAY:" 

115 PRINT"THE COMPUTER WILL SELECT 5" 

120 PRINT"POSITIONS AND PLACE COBRAS" 

125 PRINT"WITHIN EACH. THE COMPUTER WILL" 

130 PRINT"SHOW YOU WHERE 3 OF THE COBRAS ARE" 

135 INPUT"PRESS ENTER, PLEASE" ;X$ 

HO PRINT:PRINT:PRINT@6 4,CHR$<30> 

145 PRINT"NOW THE COMPUTER WILL SELECT A" 

150 PRINT"POSITION AND FLASH AN ASTERISK" 

155 PRINT"THERE, WHAT EACH PLAYER MUST DO" 

160 PRINT"IS ENTER THAT POSITION. IF YOU" 

165 PRINT"ARE CORRECT YOU'LL GAIN 1000" 

170 FRINT'POINTS; IF INCORRECT YOU'LL" 

175 PRINT"LOSE 1000 POINTS. IF... YOU SELECT" 

180 PRINT"A POSITION WHERE A COBRA IS..," 
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185 PRINT M YOU'RE OUT OF THE GAME, DEAD !!" 

190 PRINT"SELECTION OF POSITIONS WILL CON-" 

195 PRINT"TINUE FOR AS LONG AS EACH PLAYER" 

200 PRINT"WANTS, OR 21 POSITIONS HAVE BEEN" 

205 FRINT M OMITTED " 

210 GOSUB 220:INPUT"PRESS ENTER, TO START" ;X$ 

215 CLS:GOTO 300 

220 DIM L$<31),P<31>,L<31> 

225 REM LETTERS:? CHR5C23) 

228 IF SLO0 PRINT M ARRANGING LETTERS..." 

230 L=65;I=1 :FZ=1Q00 

235 L$<I)=CHR$(L> :LU) = I 

240 IF 1=27 THEN 255 

245 1=1+1 :L=L+1 :GOTO 235 

250 GOTO 2 35 

255 REM SORT LETTERS RANDOMLY 

260 J=i 

265 N=RND(I-1> 

270 IF L<N)=0 THEN 265 

275 L$(J)=CHR5(N+64> 

280 L(N)=0:J=J+1 

285 IF Jal RETURN 

2 90 GOTO 26 5 

300 REM POSITIONS 

305 F=l : 1=1 :PL=P+128: J= 1 

310 P(I)=P:L(I)=I 

315 P = P + 6: 1 = 1 + 1 :J = J+1 

320 IF 1=27 THEN 345 

325 IF J = 7 THEN 335 

330 GOTO 310 

335 F=PL:FL=PL+128 J= 1 

340 GOTO 310 

345 REM THE REMAINING 4 

350 LS(I)=" ":P(I)=P:L(I)=I 

355 P=P+6: 1=1+1 : J=J+1 

360 IF J=7 THEN 370 

365 GOTO 350 

370 REM MOVE THE 4 BLANKS 

375 1=1 :J=1:L=27 

380 N=RND(26) 

385 IF L(N)=0 THEN 380 

390 FS=LS(N) :L$(N)=L$<L) 

395 LS(L)=F$:L(N)=0 

400 L=L+1:IF L=31 THEN 410 

4 05 GOTO 380 

410 REM NOW PRINT LETTERS 

415 CLS:FOR 1=1 TO 30 

420 PRINT@P(I>,L$U>; NEXT 
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425 REM FINAL GRAPHICS 

430 X = 16 

435 FOR Y = TO 28 

440 5ET(X,Y> :NEXT 

445 X=X+12 

450 IF X = 100 THEN 460 

455 GOTO 435 

460 FOR X=H TO 88 

465 SET(X,Y> :NEXT 

470 Y = Y-6 .5 

480 IF y«-3.5 THEN 490 

485 GOTO 460 

490 REM COBRA POSITIONS / PLAYER 

495 C=1:FRINT§832, "PLAYER: ";Q$CU); 

500 N=RND(I-5) 

505 IF L<M>=0 OR L(N)=100 THEN 500 

510 CB(C)=P<N) :F$:=L$<N> :C$<C)=F$ 

515 L$(N)=CHR$(42) :L(N)=i00 

520 IF C = 5 THEN 560 ELSE IF C< = 3 GOSUB 530 

525 C=C+l:GOTO 500 

530 XX=0;REM DEFINE 3 (1 FOR COMPUTER) 

535 PRINT§F(N> ,L$<N); : FOR T=l TO 100:NEXT T 

540 PRINT@P(N) ," " ;:FOR T* 1 TO 50:NEXT T 

545 PRINT§F(N) ,F$; 

550 IF XX<=0 THEN XX=XX+i:GOTO 535 

555 RETURN 

560 REM COMPUTER SELECT (IF NOT DONE) 

565 SL=1 :W=X*7*25 

575 IF SL)=22 THEN 1000 ELSE GOSUB 1200 

585 PRINT@W,"I WILL SELECT A POSITION" 

590 N=RND(L-1) : GOSUB 1240 

595 IF L(N)=0 OR L(N>*100 THEN 590 

600 F$=L5(N):IF 5L = 1 THEN GOSUB 530 

605 C$=F$:NU=N:QOSUB 1300:GOSUB 1200 

610 PRINT§W, "SELECT A POSITION ";Q$(U); 

615 PRINT@W+64,"BY LETTER ONLY"; 

620 INPUT L$ 

625 1=1 

635 IF L$=L$(I) THEN 665 

645 1=1+1 

655 IF I)=31 THEN 675 

660 GOTO 6 35 

665 N=I :F$=L$:GOSUB 530 

670 GOTO 800 

675 REM COBRA POSITION OR BLANK 

685 GOSUB 1200 

690 FOR 1=1 TO 5 

695 IF L$=CS(I) THEN 735 
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705 NEXT 

715 FR1NT@W,"Y0U CANNOT SELECT A BLANK ! ! " 

725 GOSUB 1240:GOSUB 1200:GOTO 610 

735 REM COBRA 

745 FRINT@W,"YOUR DEAD n ;QS(U); n ! M M 

755 PRINT@W+64,"THAT IS A COBRA POSITION M" 

765 PRINT&W+128,"** FAREWELL **":GOSUB 1240 

770 ZZ=l:GOSUB 1200:GOTO 1020 

800 GOSUB 1240:GOSUB 1 200 : IF L$OC$ THEN 900 

805 PRINT8W, "CONGRATULATIONS " ;Q$ <U) ; M . . . " 

810 FRINTW+64, "YOU'VE JUST GAINED";PZ; 

815 FRINT"POINTS ! !» 

820 REM POINTS / CONTINUE 

825 W<U)=W<U)+PZ 

830 FRINT@F(NU> , " "; 

835 PRINTS872, "TOTAL POINTS: ";W(U); 

840 GOSUB 1240:GOSUB 1200 

845 PRINT@W,"YOU NOW HAVE " ;W( U) ; "POINTS . . " 

850 FRINTeW+64,Q$(U> ; H . . CONTINUE <Y/N)"; 

855 INPUT X$:IF X$="N" THEN 1020 

860 SL=SL+1:L(NU>=Q:L$<NU)=" M 

865 GOTO 575 

900 REM WRONG POSITION 

905 PR INT6V, "WRONG POSITION ";Q$(U) 

910 PRINTeW+64,"YOU ARE NOW MINUS";FZ; 

915 PRINT"POINTS, . .": GOSUB 1240 

920 GOSUB 1200:W(U>=W(U)-FZ 

925 PRINT&8 72, "TOTAL POINTS: ";W(U>; 

930 GOTO 610 

1000 REM FINAL / ANOTHER PLAYER 

1005 GOSUB 1240:GOSUB 1200 

1010 FRINT&W ( "THAT'S IT ";0$(U);V YOU'VE" 

1015 PRINTSW+64 /'REACHED THE LIMIT..." 

102 FRINTeW+12 8,"ENTER .PLEASE"; 

1025 INPUT X$ :CLS 

1030 IF ZZ=1 THEN ZZ*0:GOTO 1040 

1035 T(U)=W(U) 

1040 UsU+l:IF U>A THEN 1100 

1045 PRINT Q$(U) ; " YOU ARE NEXT. . . " 

1050 PRINT"KEY ENTER WHEN READY"; 

1055 INPUT X$ :CLS 

1060 GOSUB 225:GOTO 300 

1100 REM FINAL / SCORE RESULTS 

1105 PRINT H FLAYERS AND POINTS:" 

1110 FOR 1=1 TO A 

1115 PRINT Q$(I); M TOTAL POINTS: ";T(I> 

1120 NEXT 

1125 PRINT 
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1130 FRINT"PRQGRAM TERMINATED " 

113 5 END 

1200 REM CLEAR PRINT AREA 

niO PRINT@y,CHR$<30> 

1220 PRINTW+64,CHR$<30> 

123 RETURN 

1240 REM TIME DELAY 

1250 FOR TI=1 TO 1200:NEXT 

12 60 RETURN 

1300 REM FLASH SELECTION COURSE 

1305 FOR 1=1 TO NU 

1310 IF L$(I)s"*" OR L$(I)=" " THEN 1330 

1315 PRINTGPU),"*"; 

1320 FOR TI=1 TO 10:NEXT TI 

1325 PRINT@P(I),L$(I) ; 

1330 NEXT I 

1335 RETURN 

Variables and Strings 

A - Total number playing (1-10) 

U - Used for subscripted variables, strings, players and points 

L$(I) - Letters, asterisks, blanks 

P(I) - Position, Print @ areas 

L(I) - For deletion of letters after use 

SL - Number of letters used 

L - For letters 

PZ - For points 

J - General purpose, random count of letters, positions 

P - Positions, placed into subscripted variable P(I) 

PL - To advance variable P two lines, when J= 7 

N - Random selection variable 

F$ - Contents of L$(I) 

Q$(U) — Current player 

C,CB(I),C$(I) - Cobra positions, a total of five 

NU - Selection by computer for the location 

ZZ - Indicates user killed by cobra, no points 

W(U) - User's total score 

T(U) - User's final score if ZZ = 

Explanation of the Program Lines 

Lines 30-55 allow up to 10 players' first names to be entered. 
Lines 60-210 display the instructions, if they are needed by any 
player. 
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Lines 220-250 place the 26 letters of the alphabet in the sub- 
scripted string L$, and set the subscripted variable L to the value of 
I for random selection. 

Lines 255-290 arrange the 26 letters randomly. 

Lines 300-340 set the 26 positions at which the letters will be 
placed (Print @ areas). 

Lines 345-365 set the remaining four spaces as blanks. 

Lines 370-405 replace the four blank spaces with randomly 
selected letters. Where these letters were, there are now blank 
spaces. 

Lines 410-420 print all letters and blank spaces. 

Lines 425-485 produce the final X,Y graphics for the 6 by 5 
matrix. 

Lines 490-525 select five cobra positions and flash three of the 
positions with asterisks. 

Lines 530-555 display the position selected by the computer 
and the selection given by the user. 

Lines 560-605 cause the computer to select a random position, 
IF SL< = 21. The first selection is shown by a flashing asterisk. The 
program then branches to lines 1300-1335 where asterisks are 
flashed rapidly from top position to the position selected by the 
computer. 

Lines 610-1060 get the user's selection and determine if the 
entry is a correct guess, a blank, or a cobra position. If it is incorrect , 
the user will have 1000 points deducted from his or her score. If it is 
a blank, the user will be asked to try again. If it is a cobra, the user is 
automatically terminated. Correct entries that match the comput- 
ers, are worth 1000 points each. 

Lines 1100-1135 print all the players' names and their scores. 

Lines 1200-1260 are routines used to clear Print @ areas for 
messages and to cause time delays for the reading of the messages. 
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INSOMNIA 

Having trouble sleeping? The computer will try and solve that 
problem through using its graphics. This program is not intended to 
help people with severe sleep disorders nor should it be used by 
people who hypnotize easily. Note that the IBM version of this 
program is included in Appendix A, and the Apple version in Ap- 
pendix B. 
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Flowchart for insomnia. 
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BEFORE START 



PHASE 




PHASE i! 




PHASE HI 




MESSAGE 
END OF RUN 



( stop ") 
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Program Listing 

10 REM PROGRAM TITLE: INSOMNIA 
20 CLEAR 200:CLS 
30 FRINT"INSOMNIA" 
40 PRINT 

50 FRINT"SO YOU ARE HAVING PROBLEMS" 
60 PRINT-SLEEPING. JUST SIT BACK, KEEP" 
70 FRINT"YOUR EYES ON THE VIDEO AND" 
80 INPUT"PRESS ENTER" ; X : CLS 
90 A=30:W=0 
100 PRINT:PRINT TABtA)":"; 
110 PRINT TAB(A-n":";TAB(A+l)":"; 
120 I=RND<2> 
130 IF 1=1 THEN 160 
HO IF A> = 60 THEN 170 
150 A=A+2:GOTO 180 
160 IF A< = 10 THEN 150 
170 A = A-2 

180 W=W+1: IF W=15 THEN 350 
190 IF V=700 THEN 210 
2 00 GOTO 100 
210 IF V<=800 THEN 230 
220 GOTO 250 
230 PRINT 
240 W=W + 1 :GOTO 210 

250 PRINT"GETTING SLEEPY NOV ? ? ? ? " 
260 FOR 1=1 TO W:NEXT 
270 IF W<=814 THEN 290 
2 80 GOTO 300 

290 PRINT:W=W+1:GOTO 270 
300 FOR X=0 TO 127 
310 SET(X,0> ;SET(X,47) :NEXT 
320 FOR X=l TO 46 
330 SET<0,X> :SET(127,X):NEXT 
340 FOR 1=1 TO W;NEXT:W=0:GOTO 400 
350 PRINT§990, ; 
360 PRINT"KEEP EYES HERE"; 
370 GOSUB 600 
380 GOTO 190 
400 L=62 :A=65 :X=897:Y=A 
410 A$=STRING$<L,L*2+7) 
420 PRINT©A,A$; 
430 FRINT§X,A$ > 
440 A$=STRING$(L,32> 
450 FRINT@A,A$ ; 
460 PRINT@X,A$; 
470 A=A+64:X=X~64: IF A=513 THEN 530 
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180 IF X=Y THEN 500 

4 90 GOTO 410 

500 IF W< = 50 THEN 520 

510 COSUB 60Q;GOTO 610 

520 W=W+1 : IF W=25 GOSUB 580 

5 25 GOTO 400 

530 IF V>1 THEN 480 

540 PRINT8A-45, ; 

550 PRINT"5TARE AT THIS LOCATION"; 

560 GOSUB 600 

570 GOTO 480 

580 FRINT@A-429, ; 

590 PRINT"NOW FOLLOW THE BARS"; 

600 FOR 1 = 1 TO 1000:NEXT:RETURN 

610 CLS 

620 PRINT" IF YOU ARE NOT GETTING SLEEPY" 

630 FRINT"BY NOW, YOU'RE A HOPELESS" 

640 PRINT"CASE M !" 

650 GOSUB 600:PRINT 

660 PRINT"THIS IS THE LAST PHASE OF" 

670 PRINT" INSOMNIA, IF IT FAILS, RUN" 

680 PRINT"THE ENTIRE PROGRAM ONCE" 

690 PRINT"AGAIN " 

700 GOSUB 600.PRINT 

710 PRINT"KEEP YOUR EYES ON THE MOVING" 

720 PRINT"BLOCK, THINKING TO YOURSELF" 

730 PRINT"I AM GETTING SLEEPY " 

740 INPUT"KEY ENTER" ; X : W=0 

750 CLS:P$=STRING$(2,191) : A$=STR ING5 < 2 , 32 ) 

760 Y = 61 ;FOR X=15 TO 26 

770 SET(Y,X) ;NEXT 

780 F=X+579 

790 GOSUB 1100 

8Q0 FOR X=15 TO 26 

810 RESET<Y,X) :NEXT 

820 IF Z=I THEN 930 

830 FOR X=15 TO 26 

840 SET(Y,X>:Y=Y-i:NEXT 

850 GOSUB U20 

860 P = F-6 

870 GOSUB 1100 

880 Y=61 

890 FOR X=15 TO 26 

900 RESET(Y I X):Y=Y-1:NEXT 

910 GOSUB 1120 

920 Z=l:GOTO 760 

930 GOSUB 1120 

940 FOR X=15 TO 26 
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950 SET<Y,X>:Y=Y*1:NEXT 

960 P=F*5:FRINTCF,P$; 

970 Y=61:FOR X=15 TO 26 

980 RESET<Y,X> 

990 Y*Y+1:NEXT 

1000 GOSUB 1120 

10 10 WsW+1 

1020 IF W=5 THEN 1050 

1030 IF W=50 THEN 1150 

1040 2=0:GOTO 760 

1050 FOR X-46 TO 75 

1060 SET<X,H):SET<X,31> :NEXT 

1070 FOR X=H TO 31 

1080 SETM6,X):SET(75,X) :NEXT 

1090 GOTO 1030 

1100 FRINTOF,F$; 

1110 RETURN 

1120 FRINTOP,A$; 

1130 RETURN 

115 REM END OF PROGRAM 

1160 GOTO 1160 

Variables and Strings 

A - Tab locations for first phase 

W - General purpose counter 

I - A random amount, also for a time pause 

L - For putting character contents into a string 

A,X - Print @ locations for second phase of program 

Y - Contents of A for reset of graphics 
A$ - Characters for graphics 

P$,A$ - Characters for graphics for third phase of program 

Y - For set/reset locations in third phase 
P - Print @ locations (for block) 

Z - 0/1 variable for graphics 

Explanation of the Program Lines 

Lines 10-80 clear an amount of memory for graphic strings and 
display a short message before beginning the program. 

Lines 90-290 form phase 1 of the program. They print three 
colons at a random tab location. These will move up in a snake like 
fashion. 

Lines 300-590 form phase 2 of the program. Here, two bars 
move from the outside to the inside of a square, and then recycle. 

Lines 610-1090 form the final phase of the program. A pen- 
dulum is set to swinging. 
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\ YOUR ENTRY WAS 
INCORRECT l 






4< 



^HZ^ 



RAINY DAZE 

This program is designed for bad weather days, to make them 
worse! All you'll need do is maintain good eye contact with the 
video and follow the numbers. When you see a number that is out of 
order, press the clear key. That's all there is to it. Oh yes, I almost 
forgot, the speed at which the numbers are printed across the 
screen gets faster and faster with each new line... Note that the 
IBM version of this program is included in Appendix A and the 
Apple version in Appendix B. 

Sample Run 

INSTRUCTIONS? YES 

PLAYERS? 2 

THE 2 PLAYER'S INITIALS 

? D.F. 

? H.J. 

THIS PROGRAM IS DESIGNED TO 
HELP YOU THROUGH YOUR WORST 
DAYS BY MAKING THEM WORSE !! 
ACTUALLY THIS PROGRAM WILL 
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Flowchart for Rainy Daze . 
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TEST YOUR ABILITY TO FOLLOW 
NUMBERS IN SEQUENCE. 
THE NUMERALS 1 THROUGH 660 WILL 
RACE ACROSS AND FILL THE VIDEO. 
WHEN A NUMERAL APPEARS THAT IS 
NOT SUPPOSED TO BE THERE, HOLD 
THE CLEAR KEY FOR A SHORT 
PERIOD UNTIL THAT NUMERAL IS 
BLOCKED OUT. 

PRESS ENTER? 

POINTS WILL BE GIVEN ON HOW 

MANY OUT-OF-SEQUENCE NUMERALS 

YOU HAVE DETECTED AT THE 

END OF THE COUNT. 

REMEMBER, YOU MUST HAVE GOOD 

EYE POINT CONTACT WITH THE 

VIDEO... 

D.F. YOU WILL NOW PLAY. 
PRESS ENTER, PLEASE? 



Program Listing 

10 HEM PROGRAM TITLE: RAINY DAZE 
20 CLS 

30 INFUT"INSTRUCTIONS";A$ 
40 INPUT"FLAYERS";P:IF P*0 THEN 40 
50 PRINT"THE";P; "PLAYERS INITIALS" 
60 IF P>=1I THEN 20 ELSE FOR 1=1 TO P 
70 INPUT NS(I) :NEXT 

80 IF ASO"Y" AND A$<>"YES" THEN 340 
90 REM INSTRUCTIONS 
100 PRINT"THIS PROGRAM IS DESIGNED TO" 
110 PRINT"HELP YOU THROUGH YOUR WORST" 
120 PRINT"DAYS, BY MAKING THEM WORSE !!" 
130 FRINT"ACTUALLY THIS PROGRAM WILL" 
140 PRINT"TEST YOUR ABILITY TO FOLLOW" 
150 PRINT"NUMBERS IN SEQUENCE . " 
HO PRINT"THE NUMERALS 1 THROUGH 660 WILL" 
170 PRINT"RACE ACROSS AND FILL THE VIDEO " 
180 PRINT"WHEN A NUMERAL APPEARS THAT IS" 
190 PRINT"N0T SUPPOSED TO BE THERE, HOLD" 
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200 PRINT"THE CLEAR KEY FOR A SHORT" 

210 FRINT"FERIOD UNTIL THAT NUMERAL IS" 

220 FRINT M SLOCKED OUT," 

210 PRINT 

250 INPUT n PRESS ENTER"; X 

260 CLS 

270 PRINT"FOINTS WILL BE GIVEN ON HOW" 

280 FRINT"MANY OUT-OF-SEGUENCE NUMERALS" 

290 FRINT"YOU HAVE DETECTED AT THE" 

300 FRINT H END OF THE COUNT," 

310 FRINT"REMEMBER, YOU MUST HAVE GOOD" 

320 FRINT"EYE POINT CONTACT WITH THE" 

330 PRINT n VIDEO, . ,":PRINT 

340 1=1 

350 IF Pal THEN 390 

360 PRINT N$(I);" YOU WILL NOW FLAY " 

370 INFUT"PRESS KEY ENTER, PLEASE";X 

380 GOTO 4 10 

390 PRINT"WHEN READY, " ;N$(F);" PRESS" 

400 INPUT"THE ENTER KEY";X 

410 CLS:RANDOM:N=0;N1=:0:TT=250 

420 A=0 :M=55 : L = 64 :G=0 

430 K = FEEKU4440) : GOTO 550 

4 40 PRINT§A,N; 

450 FOR T=l TO TT+TT 

460 NEXT:A=A+5 

470 IF A>=M THEN 490 

480 GOTO 430 

4 90 A=L ;M=M+6 4 :L=L+6 4 :TT=TT-2 5 :G=0 

500 IF L> = 1 023 THEN 5 20 

505 IF TTU100 THEN TT=10Q 

510 GOTO 4 30 

520 FOR T=l TO 1000;NEXT 

530 CLS 

540 GOTO 420 

550 REM CHANGE OR LEAVE 

560 IF K = 2 THEN NJrl:GOTO 690 

570 N=N+1 

580 N1*N1+1:IF Nl (=2 THEN 610 

590 J=INT(RND<0>*2> : IF G=l THEN J=0:N=N1 

600 IF J=l THEN N=N+ 1 :G=1 

610 IF K=0 AND ABS(N-N1)<>0 THEN Y=Y+1 

620 IF NJ*1 THEN NJ=0:GOTO 640 

630 IF Nl> = 661 THEN 800 ELSE GOTO 440 

640 N1=NU1 

650 FRINTSA-5 , STRINGS (5, 143) ; 

660 REM PAUSE BEFORE CONT. 

670 FOR T=I TO 100:NEXT:K=0 
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680 GOTO 440 

690 IF ABS(N-N1>=0 THEN 710 

700 Y-Y-l :GOTO 720 

710 Y = Y+I 

720 Al=PEEK(A-6+15360) 

730 A2=FEEK<A-8+15360> 

740 IF Al = 143 AND A2==143 THEN 760 

750 GOTO 620 

760 CLS:Y=Y+2 

770 PRINT"QUIT HOLDING DOWN THE CLEAR" 

780 PRINT"KEY !! LET GO YOU DINGY !! 

790 FOR T=l TO 1 2 00 : NEXT : CLS : GOTO 620 

800 REM PLAYER ADVANCE 

810 YY(I)=Y:Y=0:CLS 

820 1*1+1 

830 IF DP THEN Nl=Nl -1 : GOTO 850 

840 GOTO 360 

850 REM FINAL 

860 PRINT"PLAYERS AND THEIR POINTS" 

870 PRINT n ARE AS FOLLOWS:" 

880 FOR 1=1 TO P 

890 PRINT N$<I>," IDENTIFIED " ; 

900 IF YY(I)=0 PRINT"ALL NUMERALS > M : GOTO 930 

910 IF YY(I) <0 YY(I)*-YY(I) 

920 PRINT Ml-YY(I) ; "NUMERALS. H 

930 NEXT 

940 PRINT 

950 PRINT M END OF PROGRAM." 

960 END 

Variables and Strings 

P - Number of players 

N$(I) - Player's initials 

I - Current player 

N - Current digit 

Nl - Counter to change number 

TT - Time loop to cause a delay before the next number is printed 

A - Print @ locations for digits 

M,L - Largest Print @ areas (limits) 

G - 0/1 for digit change 

K - Peek location for key closure 

J - Digit changed to 

Y - Correct / incorrect entries 

Al, A2 - For test to determine whether or not the user is constantly 

holding down the clear key 
YY(I) - User's total points 
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Explanation of the Program Lines 

Lines 10-330 accept the number of players and their initials and 
display the general instructions. 

Lines 340-400 determine the current player. 

Lines 410-420 initialize the variables. 

Line 430 is used for user key closure. 

Lines 440-510 print the digits, changed or unchanged, test for a 
full video, and decrease the time loop. 

Lines 520-540 create a pause before clearing the video. 

Lines 550-680 leave current digit as it is or change it. If J is 
equal to 1 and G is equal to (zero), the current digit will be 
changed. 

Lines 690-790 increase the user's score if K is equal to 2 (clear 
key). They also test to see if the user is constantly holding down the 
clear key. 

Lines 800-960 advance to next player or terminate the program 
and print the player's names and scores. 
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Games for Parties 
or Friendly Get-TogetSiers 

Amount on Board is similar to roulette but uses squares rather 
than a wheel. Here's a way to experience the thrill of gambling at 
your own party. 

Lap-the-Track is another betting game. Whose bet will pay 
off in the great spot race? 

Partners challenges you to guess a word based on clues your 
partner gives you. 

From Point A to Point B is a different kind of maze game. 
You have to enter all your instructions before there is any move- 
ment at all. 

Injection makes you responsible for killing the bacteria that 
are multiplying out of control. 

Intercept commissions you to defend the domed city from 
alien intruders. Be careful. The high command disapproves when 
you kill friendly intruders. 
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LOOKS LIKE 
$500.00 




AMOUNT ON BOARD 

This game will allow you and up to 9 other players to place an 
amount of money on a square. These numbers will range from 0-9. 
Your initials will be placed on the numeral you have selected. If you 
plan to use real money, the computer will keep excellent tabs on all 
amounts. The computer also selects each number randomly, so it 
won't cheat anyone. 

Sample Run 



* AMOUNT ON BOARD * 

INSTRUCTIONS BEFORE PLAY? YES 

THIS IS THE FIRST PROGRAM 
OF SIX THAT IS MADE FOR 
PARTIES OR WHEN FRIENDS 
GATHER LOOKING FOR SOMETHING 
DIFFERENT TO DO. THIS GAME 
IS SIMILAR TO ROULETTE, BUT 
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( START J 



INSTRUCTIONS 



NUMBER OF 
PLAYERS 



INITIALS OF 
PLAYERS 



GET DIGIT 
FROM PLAYER 



AMOUNT TO 
PLACE ON BOARD 




GRAPHICS 
PLAYING BOARD 



START/CONT- 
DIGIT ROTATION 




NO WINNER 
CARRY AMOUNT 



PRINT WINNER 
AND AMOUNT 




GO 
AGAIN 



f STOP J 



Flowchart for Amount on Board, 
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AMOUNT ON BOARD $20.00 

WILL USE NO WHEEL. INSTEAD 
10 SQUARES (FROM 0-9) WILL 
BE USED. AT THE OPTION OF 
THE PLAYERS, REAL MONEY 
CAN BE USED. EACH PLAYER 
(UP TO 10) WILL ENTER A 

PRESS ENTER? 

NUMBER FROM 0-9 AND PLACE ANY 
BET (WITHIN REASON). WHAT- 
EVER THE COMPUTER LANDS ON 
DETERMINES THE WINNER. A 
PLAYER CAN DROP OUT OR BE 
ADDED DURING PLAY, BEFORE 
ANY BETS ARE PLACED. 

NUMBER OF PLAYERS? 2 

INITIALS OF THE 2 PLAYERS 

(WITHOUT SEPARATING PERIODS) 

? AD 

? FG 

YOUR NUMBER SELECTION AD ?2_ 

PLACE WHAT AMOUNT ON BOARD? 10 

YOUR NUMBER SELECTION FG? 6. 
PLACE WHAT AMOUNT ON BOARD? 10 
AMOUNT ON BOARD 
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Program Listing 

100 REM PROGRAM TITLE: AMOUNT ON BOARD 
110 CLEAR 200;RANDOM 

120 CL5;M$="$$#,###„##":U=576 

130 PRINT"* AMOUNT ON BOARD * " 

140 PRINT 

150 INPUT" INSTRUCT BEFORE PLAY",X$ 

HO IF X$="N" OR XS= M NO" THEN 390 

170 PRINT 

180 PRINT"THIS IS THE FIRST PROGRAM" 

190 FRINT"OF SIX THAT ARE MADE FOR" 

2G0 PRINT"PARTIES OR WHEN FRIENDS" 

210 PRINT-GATHER LOOKING FOR SOMETHING" 

220 PRINT"DIFF£RENT TO DO THIS GAME" 

230 PRINT" IS SIMILAR TO ROULETTE, BUT" 

240 PRINT"WILL USE NO WHEEL . INSTEAD" 

250 PRINT"10 SQUARES (FROM 0-9) WILL" 

260 PRINT"BE USED AT THE OPTION OF" 

270 FRINT"THE PLAYERS; REAL MONEY" 
280 PRINSCAN BE USED, EACH PLAYER" 

290 PRINT" (UP TO 10) WILL ENTER A" 

300 PRINT 

310 INPUT"PRESS ENTER" ; X $: CLS 

320 PRINT"NUMBER FROM 0-9 AND PLACE ANY" 

330 PRINT"BET (WITHIN REASON), WHAT-" 

340 PRINT"EVER THE COMPUTER LANDS ON" 

350 PRINT"DETERMINES THE WINNER. A" 

360 PRINT"PLAYER CAN DROP OUT OR BE" 

370 FRINT"ADDED, DURING PLAY, BEFORE" 

380 PRINT"ANY BETS ARE PLACED . ": PR INT 

390 INPUT"NUMBER OF PLAYERS";P 

4Q0 IF P<1 OR P>10 THEN 390 

410 PRINT"INITIALS OF THE" ; P ; "PLAYERS" 

415 PRINT" (WITHOUT SEPARATING PERIODS)" 

420 FOR 1=0 TO F-l: INPUT IS(I) 

430 NEXT 

440 REM GET NUMBER SELECT AND AMOUNT 

450 FOR IrO TO 9 : N( I ) = I : P ( I ) = I ; X ( I ) =0 : NEXT 

460 N( 0)=-99: UO 

470 PRINT"YOUR NUMBER SELECTION ";I$<I>; 

480 INPUT N:IF N<0 OR N>9 THEN 470 

490 IF N(N)=0 THEN 510 

495 IF N=0 THEN X < I ) =N< ) : GOTO 530 

500 X(I)=N.GOTO 5 30 

510 PRINT"NUMBER ALREADY ENTERED." 

520 PRINT, GOTO 470 

530 IF NO0 THEN N(N)=0 

274 



540 PRINT"PLACE WHAT AMOUNT ON BOARD"; 

550 INPUT A(I) 

560 IF A(IXi OR A( I ) >100 THEN 580 

570 GOTO 600 

580 FRINT"KEEP THE BET WITHIN REASON" 

590 GOTO 540 

600 1=1+1 

610 IF I > F- 1 THEN 630 

620 CLS:GOTO 470 

630 REM TALLY AMOUNTS 

640 1=0 

650 A=A+A< I ) 

660 1*1 + 1: IF DP-1 THEN 680 

67 GOTO 650 

680 REM INCREASE WITH LEFTOVER 

690 A=A+M 

700 M = A 

710 A = 

720 CLSFRINT CHR5U3 ) 

730 REM PLAYING BOARD 

740 B$ = STRING$m ,143) 

750 PRINTS, B$ i ;FRINT@1?6 / B$ ; 

760 PRINT@388 ,B$ , 

770 J=4 : JA = 40 JB=J+64 

780 PRINT@J,CHR$< 191) ; 

790 IF J>=JA THEN 810 

800 J=J+8 GOTO 780 

810 J=JE JA=JA+64;JB=JB+64 

820 IF JA>=424 THEN 840 

330 GOTO 780 

840 REM LOCATIONS OF DIGITS 

350 L = 70 

860 FOR 1=0 TO 4: LCI > = L 

870 L=L+8;NEXT 

880 L=262 

890 FOR 1 = 5 TO 9 : L < I )=L 

900 L=L+8 NEXTGOSUB 1600 

910 TM=-10 :FRINT@448 , , 

920 PRINT'*AMOUNT ON BOARD", 

930 PRINT USING M5 ,M 

940 REM START THE ROUND 

950 NI=RND( 15) 

960 1=0 

970 PRINTS!.*! > , P C I > ; 

980 IF G=l AND I=V THEN 1140 

990 IF I> = 1 THEN 1040 

1000 FOR Y=l TO TM;NEXT 

1010 1=1+1 
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1020 IF 1=10 THEN 1040 

1030 GOTO 970 

1040 FRINTGLU-l) , " " ( 

105 1? 1=10 THEN 96 

10 60 TM=TM+1 ., 5 

1070 IF TM>=80 THEN 1090 

1080 GOTO 1000 

1090 HEM GET A NUMBER 

1100 IF G=l THEN 1080 

1110 G=l 

1120 V=INT(RND(0>*10> 

1130 GOTO 1080 

1140 REM WIN NUMBER 

1145 IF 1 = PRINT@L(9> ," " , : GOTO 1155 

1150 PRINTSLCV-l) , " ", 

1155 FOR 1=0 TO 9 

1160 IF X(I>OV THEN NEXT: GOTO 1230 

1165 15=1$ (I) IF IS*"" THEN 1230 

1170 PRINTCU, ; 

1180 PRINT"THE WINNER ";I$ 

1190 PRINT"VINNING A TOTAL OF "; 

1200 PRINT USING MS jM 

1210 W( I )=V(I )+M;M=0 

1220 GGTO 1270 

12 30 PRINTeU, , 

1240 PRINT"SORRY, NO WINNER..." 

12 50 PRINT M THE MONEY STAYS IN THE" 
1260 PRINT"POT UNTIL VON." 

1270 REM RECYCLE 

1280 PRINT: INFUT"PRESS ENTER, PLEASE";I$ 

1290 CLS:G=0 

1300 FRINT N STOF OR CONTINUE PLAY <S/C>"; 

13 10 INPUT IS 

1320 IF I5="S M THEN 1530 

1330 PRINT M ANY PLAYER WANT TO QUIT (Y/N)" ; 

1340 INPUT 15 

1350 IF I5="N" THEN 1445 

1360 INPUT"YOUR INITIALS, PLEASE"; 15 

1370 FOR 1=0 TO P-l 

1380 IF I5( I) = I$ THEN 1400 

1390 NEXT:GOTO 1445 

1400 I$< I) = "".REM SHUFFLE NAMES/AMOUNTS 

1410 FOR T=0 TO P-l 

1415 IF 15 CT) = M " THEN EX = 1 

1420 IF EX=0 THEN T5(T)=I$(T) :T(T)=W(T) : GOTO 1430 

1425 T$(T)=I$(T+1) :T(T)=W(T+1) 

1430 NEXT:EX=0„FOR T=0 TO P-l 

1435 15 <T)=T$(T> :W<T)=T(T> 
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1440 NEXT;F=P-1 

144 5 IF P>=10 THEN 1510 

1450 PRINT"ANY NEW PLAYERS <Y/N) M ; 

1460 INPUT 1$ 

1470 IF I$= n N" THEN 1510 

1480 REM INITIALS 

1490 PRINT ,! YOUR INITIALS (WITHOUT PERIODS)" 

1500 INPUT IS(P) :P = P+1 

1510 CLS 

1520 GOTO 440 

1530 REM ALL CHICKENED OUT 

1540 CLS 

1550 FRINT"PLAYERS AND AMOUNTS (YOU" 

1560 PRINT"SHOULD HAVE ON YOU !!)" 

1570 FOR 1 = TO P-l: PRINT I $ < I > ; " : " ; 

1580 PRINT USING M$;W(I):NEXT 

1590 PRINT : PR INT" END ,.": END 

1600 REM PRINT INITIALS AT LOCATION 

1610 FOR 1=0 TO 9 

1620 IF X(I)=0 THEN 1650 

1630 IF X(I)=-?9 THEN 1660 

1640 PRINT@L(XCI))+64,I$(I>, 

1650 NEXT;RETURN 

1660 PRINT§L<0)+64,I$(I> ; 

1670 X(I)=0:GOTO 1650 

Variables and Strings 

M$ - Print of dollar amount 

P - Number of players 

I$(I) - Player's initials 

N(I) - User's number selection 

P(I) - Digits 0-9 

X(I) - User number selected 

A(I) - User entered amount 

A - Amount on board 

M - Any leftover amount, if not won 

B$ - For playing board (STRING$) 

J JAJB - Locations for Print @ for playing board 

L,L(I) - Location of the digits 

TM - Pause between the printing of the digits 

G,V - Computer select of digit 

W(I) - User's winnings 

Explanation of the Program Lines 

Lines 100-380 display the general instructions. 
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Lines 390-400 accept the number of players. 

Lines 410-430 accept the initials of the players, without 
separating periods. This is required so that the users' initials can be 
printed in the numeral blocks they have selected. If the user adds 
the separating periods, part of the graphics will be lost. 

Lines 440-460 set subscripted variables to the numerals 1 
through 9. 

Lines 470-530 allow each user to input a number between and 
9. 

Lines 540-620 allow each user to input an amount of money to 
place on board (any amount within reason). 

Lines 630-710 compile all amounts to determine the total on 
board. The variable M will be an amount that is carried over from a 
play nobody won. 

Lines 720-830 display the playing board. 

Lines 840-900 determine the locations of the digits 0-9. Each 
location selected by a user will show his or her initials. 

Lines 910-1080 form the main part of the program. All digits 
are flashed from left to right until TM>= 80. Then the computer 
stops at its preselected location. 

Lines 1090-1130 select a random number. 

Lines 1140-1220 print the winner, if there is one, and the 
amount he or she has won. 

Lines 1230-1280 are used when there is no winner. The 
amount on board will remain in the pot until it is won (variable M). 

Lines 1300-1320 allow any player to terminate the program. 

Lines 1330-1440 allow any player to drop out of the game if he 
or she so wishes. If a player does drop out, the names will be re- 
organized so they do not include the name of the player that 
dropped out. 

Lines 1445-1500 allow a new player to join the game, if there 
are less than 10 players. 

Lines 1510-1520 recycle the program with the new number 
selections and bets. 

Lines 1530-1590 display a message when all players have quit 
message and also show the amount each has won. 

Lines 1600-1670 form a subroutine that prints the initials of the 
players at the numeral they have selected. 
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f AND IT'S SPOT ONE PULLING AWAY 

FROM SPOT THREE WITH SPOT FOUR 
RUNNING CLOSE TO SPOT TWO BUT 
CLOSER TO SPOT THREE WHICH IS 
PULLING UP ON SPOT ONE 

— k~ n 



oo 



LAP-THE-TRACK 

You and 14 others can bet on one of four spots that will dash across 
your video in a race that will last 10 laps. There are programs of 
horse races, dog races, etc., so, you could call this a spot race. After 
selecting a lane and placing your bet, the four spots will begin 
darting across the video. The winner, naturally, will be the spot that 
completes the 10 laps first. Each spot will have an equal opportunity 
to win, dependent upon the random function. All monies are divided 
equally should more than one person bet on the winning lane. Note 
that the IBM version of this program is included in Appendix A, and 
the Apple version in Appendix B. 

Sample Run 

-:-: LAP-THE-TRACK :-:- 

INSTRUCTIONS? YES 

UP TO FIFTEEN PEOPLE BET ON 
THE FOUR MOVING SPOTS THAT WILL 
BE IN A FAST RACE TO THE FINISH. 
A COMPLETE RACE CONSISTS OF 
10 LAPS. EACH PLAYER WILL BE 
ABLE TO CHOOSE A LANE (1-4) 
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STOP 



3 



Flowchart for Lap-the-Track . 
280 




1 LANE1... 
■ LANE 2... 
| LANE 3... 

1 LANE 4 - 


...$2.00 
...$5.00 
...$4.00 
...$2.00 











AND HOW MUCH THEY WANT TO BET 
ON THE CHOSEN LANE. IF THERE 
ARE NO WINNERS, THE COMPUTER 
WILL PLACE THE MONEY ON A 
LANE OF ITS CHOICE IN THE 

PRESS ENTER? 

NEXT RACE. IF THE COMPUTER'S SPOT 
(LANE) HAPPENS TO WIN, IT WILL 
NOT TAKE THE MONEY, IT WILL 
JUST BET ON ANOTHER LANE. 
SO NO MATTER HOW YOU SLICE IT, 
SOMEONE IS BOUND TO WIN (SO 
YOU CAN USE REAL MONEY IN 
THIS GAME TOO). 
HOW MANY TO PLAY? 4. 

INITIALS, PLEASE? AA 

? B.B. 

? C.C. 

?D.D. 
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YOU WILL NOW SELECT A LANE. 
A.A. LANE NUMBER?J_ 
BET WHAT AMOUNT? 2_ 

B.B. LANE NUMBER? 4. 
BET WHAT AMOUNT? 2 

CO LANE NUMBER? a 
BET WHAT AMOUNT? 4 

D.D. LANE NUMBER? 2 
BET WHAT AMOUNT? 5. 

IF MORE THAN ONE PLAYER WINS 
(SELECTION OF THE SAME LANE) 
ALL MONEY WILL BE DIVIDED AS 
EQUALLY AS POSSIBLE. 

PRESS ENTER TO START THE RACE? 



Program Listing 


io 


REM PROGRAM TITLE: LAF--THE -TRACK 


20 


CLEAR 2 00 : RANDOM: CLS 


30 


PRINT"- : - : LAF-THE -TRACK . - : - M 


40 


PRINT: DIM A 5 C 1 5 ) , A C 1 5 ) , L A ( 1 5 ) , T C 1 5 ) 


50 


INPUT" INSTRUCT IONS" ; AS 


60 


IF A$w"Y" AND A$<>"YES" THEN 300 


70 


FRINT"UF TO FIFTEEN PEOPLE BET ON" 


80 


PRINT"THE FOUR MOVING SPOTS THAT WILL" 


90 


PRINT"EE IN A FAST RACE TO THE FINISH.' 


100 


FRINT"A COMPLETE RACE CONSISTS OF" 


1 1 


PRINT"10 LAFS. EACH PLAYER WILL BE" 


1 20 


PRINT-ABLE TO CHOOSE A LANE < 1 - 4 > H 


130 


PR I NT "AND HOW MUCH THEY WANT TO BET" 


1 40 


PRINT"ON THE CHOSEN LANE, IF THERE" 


i 5 


PRINT"ARE NO WINNERS, THE COMPUTER" 


1 60 


PRINT"WILL PLACE THE MONEY ON A" 


i 70 


PRINT"LANE OF ITS CHOICE IN THE" 


1 80 


PRINT. INPUT" KEY ENTER" , A$ 


1 90 


CLS 


200 


PRINT-NEXT RACE^ IF THE COMPUTERS SPOT 


2 10 


PRINT" (LANE) HAPPENS TO WIN, IT WILL" 


220 


FRINT"NQT TAKE THE MONEY, IT WILL 1 ' 


230 


PRINT" JUST BET ON ANOTHER LANE " 
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240 PRINT"SG NO HATTER HOW YOU SLICE IT 

250 PRINT"SOMEONE IS BOUND TO WIN (SO" 

260 PRINT"YOU CAN USE REAL MONEY IN" 

270 FRINT"THI£ GAHE TOO.)" 

300 PRINT 

3 10 INPUT"HOW MANY TO PLAY" ; A 
320 IF A<1 OR A>15 THEN 320 
330 PRINT" INITIALS, PLEASE" ; 
340 FOR 1 = 1 TO A 

350 INPUT AS ( I ) NEXT 

36 PRINT 

370 PRINT"YOU WILL NOW SELECT A LANE." 

380 1 = 1 

390 PRINT A$(I)," LANE NUMBER", 

400 INPUT LAC I ) 

410 IF LA(I)<1 OR LA(I)>4 THEN 390 

420 PRINT"BET WHAT AMOUNT"; 

43 INPUT AC I) 

440 1=1+1 

45 IF I >A THEN 48 

460 PRINT 

4 70 GOTO 39 

480 CLS GOSUB 1300: IF ZZ=i THEN 530 

490 PRINT"IF MORE THAN ONE PLAYER WINS" 

500 PRINT" CSELECTION OF THE SAME LANE)" 

510 PRINT"ALL MONEY WILL BE DIVIDED AS" 

520 FRINT"EQUALLY AS POSSIBLE " 

530 PRINT; IF CB=1 THEN 960 

540 PRINT"PRESS ENTER TO START THE RACE' 

550 INPUT A$ ; CLS 

560 REM OUTER OF TRACK 

570 FOR X=0 TO 127 

580 SETCX, 0) :SET(X, 47) 

585 SETCX, 15 ) :SETCX, 31 ) :NEXT 

590 FOR X=l TO 15 

600 SETC0 ,X) :SETC 127 ,X> :NEXT 

610 FOR X = 31 TO 47 

620 SETC0 , X) :SET( 127 ,X) ;NEXT 

630 REM SPOT POSITIONS / MESSAGES 

64 GOSUB 12 00 : GOSUB 1410:L=1: 1=384 

650 LCL)=I:R<L)=I:FCL)=I-300:LF(L>=0 

660 1=1+6 4 IF L>=4 THEN 68 

670 L = L + 1 : GOTO 650 

680 FOR 1=1 TO 4 

6 90 FRINT@LC I ) , CHR$ C 143 ) ; :NEXT 
700 REM START RACE 

7 10 LP = : X$ = CHR$ <143):PK = LCl)+63 
72 I=RND< 4) :M=ABS( 1-5 ) 
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730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

9 70 

980 

985 

990 

1000 

1010 

1020 

1030 

1040 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1 280 

1290 

1300 

1310 

1320 

1330 

134 



=50 THEN 1000 



THEN 7 90 



THEN 840 



THEN 890 



FRINT@L< I > , " " ; 

IF ABS<L ( I >-R< I > > >' 

L< I )=L( I >+RND< 14) 

PRINT@L< I > ,X$ ; 

IF M+l <> I AND M+l <>5 

GOTO 820 

PRINT@L(M+i ) , " " ; 

LCM+1 >=L(M+1 >+RND< 4) 

PRINT@L(M+1 ) ,X$ i 

IF M-l <> I AND M-l< >0 

GOTO 870 

FRINT@L<M~1 > , " " ; 

L(M-1 )=LCM-1 )+RND<4) 

PRINT@L(M~1 > ,X$ , 

IF M+2 < > 5 AND M+2 < > 6 

GOTO 720 

PRINTSL (M+2 ) , " " , 

MM+2)=L<M+2 >+RND< 4 ) 

PRINT@L(M+2 > , X$ , 

PRINT@L<M> i " M ; 

L (M)=L CM)+RND(4 ) 

PRINT@L CM) , X$ i 

GOTO 720 

CB=0 : PRINT"THE COMPUTER WILL PLACE' 

PRINT"THE AMOUNT OF";USING AA$;AM 

RF=RND<4> . PR I NT" ON LANE" ; RF ; " 

MN < RF ) = MN C RF ) + AM : AM = 

GOTO 540 

FRINT@L< I ) , " " ; 

L( I )=R( I ) 

LP<I)-LP(I)+i: PRINT@P< I > ,LFC I > ; 

IF LP< I ) >=10 THEN 1500 

GOTO 720 

PRINT@66 , "LAPS - LANE 1:"; 

PRINT@130 , "LAPS - LANE 2 

- LANE 3 

- LANE 4 
LANE 
1 
2 
3 
4 



FRINT@194, "LAPS 
PRINT@258 , "LAPS 
REM AMOUNTS PER 



'LANE 
'LANE 
'LANE 
'LANE 



FRINT@706 

PRINT@7 7 

PRINT@8 3 4 

PRINT@898 

RETURN 

REM AMOUNTS 

Tal 

FOR 1=1 TO A 

IF LA( I >=T THEN 

NEXT .GOTO 1370 



ON LANES 



1350 
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13 50 MN<T)=MN<T> +A( I ) 

1360 GOTO 1340 

1370 T=T+1 

1380 IF T>=5 THEN 1400 

13 90 GOTO 13 20 
1400 RETURN 

1410 REM PRINT AMOUNTS 

1420 AA$ = " $$#, ### . ##» 

1430 1=1 ;FF=718 

1440 PRINT@FF, USING AA$,MN<I>; 

1450 1 = 1 + 1 ; FF=FF+64 

1460 IF I>=5 RETURN 

14 70 GOTO 14 40 
1500 REM FINISH 

15 10 WW=1 

1520 FRINTSPC I )+6 , "WINNER" , 

1530 FOR TU=1 TO 200:NEXT 

15 40 PRINT@P( I )+6 , STRING $ (6,32), 

1550 FOR TU=1 TO 50;NEXT 

1560 IF WW> = 6 THEN 1580 

1570 WW=WW+l:GOTO 1520 

1580 REM PLAYER LANE SELECT 

15 90 WW=Q 

1600 FOR T=i TO A 

1610 IF LA<T)=I THEN 1630 

1620 NEXT: GOTO 1650 

1630 WW=WW+1 :T(WW)=T 

1640 GOTO 1620 

1650 FOR 1=1 TO 4 : AM=AM+MN< I ) ; MN < I )=0 

1660 NEXT: IF WW= THEN 1760 

1670 FRINT@735, "WINNERCS) : " ; 

1680 WX=799 

16 90 FOR 1=1 TO WW 
1700 PRINT@WX,A$<T< I ) ) ; 
1710 IF WV>1 PRINT", " ; 
1720 WX=WX+5 :NEXT 

1725 IF WW=1 THEN 1790 

1730 FRINT©863, "EACH WINNER RECEIVES:' 

1740 FRINT0927, USING AA$;AM/WW; 

175 AM=0 : GOTO 182 

1760 PRINT^Pd >+15, ; 

1770 PRINT"** NO WINNERS **"; 

17 80 GOTO 18 70 
1790 FRINT@863, ; 

1800 PRINT"YOU WILL RECEIVE:"; 
1810 GOTO 17 40 
1820 REM ANOTHER 
1830 PRINT@384, ; 
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1840 INFUT^ANOTHER RACE <Y/N)";A$ 

1850 IF A$ = ,, N" THEN 2000 

I860 CLS : 2Z=1 : GOTO 360 

1870 FOR TU=1 TO 1200:NEXT 

1880 FRINT@P( 1 ) + 12 , ; 

1890 PRINT M IF ANOTHER RACE IS HELD, THE' 

1900 FRINT@F( 2 ) -f 1 2 , ; 

1910 FRINT"COMFUTER WILL BET THE MONEY", 

1920 FRINT@P<3>+12 , ; 

1930 FRINT n ON A LANE IT SELECTS."; 

1940 CB=1 :GOTO 1820 

2000 REM END 

2010 CLS 

2020 FRINT"FAREWELL 'TIL THE NEXT RACE.* 

2030 END 



Variables and Strings 

A - Number playing (1-15) 

A$(I) - Initials of players 

LA(I) - Lane number selected by the user 

CB - 0/1 to stop or race again 

L(L) - Spot positions, start/continue 

R(L) - Spot positions, greatest amount 

P(L),LP(L)- Win location 

M - Distance to move 

RF - Lane selected by the computer if required 

TV/ITVTm T~+.,->1 nW A,i«t ;*-. Knfn 
iVi.iNV.xy - luiai cuuuuiU ui u<l,Lo 

AM - Amount carried over from previous race 

AA$ - Amount messages 

FF - Print @ location for message 

Explanation of Program Lines 

Lines 10-270 display the general instructions. 

Lines 300-360 accept the number of players and their initials. 

Lines 370-470 allow each player to select a lane (1-4) and enter 
the amount he or she wants to bet. 

Line 480 is explained at lines 1300-1400. 

Lines 490-550 display a message concerning the betting. 

Lines 560-620 draw the outer boundaries of the track. 

Lines 640-690 establish the locations of the spot and display 
messages. 

Lines 700-950 print all four spots and keep them moving to 
right. Random amounts are added to each, dependent upon variable 
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M. Laps are increased by one for each spot when ABS(L(I)- 
R(I))>= 50. The first to reach 10 laps is the actual winner. 

Lines 960-990 allow the computer to select a lane and an 
amount to bet. 

Lines 1000-1040 work in conjunction with lines 700-950, 
clearing the screen and counting the laps. 

Lines 1200-1290 display messages that appear during the race. 

Lines 1300-1400 tally the amounts bet on each lane MN(T) 
using the individual bets A(I). 

Lines 1410-1470 print all bets as the race begins. The amount 
of each bet is placed beside the track that it was bet on. 

Lines 1500-1810 print the names of all the winners and how 
much they won. If there is no winner, the amount bet will be carried 
over. If more than one player wins on the same track, the total 
amount bet will be divided equally between those players. 

Lines 1820-2030 ask if the users want to race again and recycle 
the program or terminate appropriately. 
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What was that 
clue word? 




I can't tell 
you again I 
Vl^orgot the word/ 




PARTNERS 

How well you depend upon your partner will be determined during 
this game. Up to 10 players (5 partners) can compete against one 
another. There will be 5 words. One player will view the word ; the 
video will clear ; then the other player takes the keyboard. The first 
player, who viewed the word, will give his or her partner clues as to 
what the word is. One minute will be given to enter all 5 point 
words. The winners are the partners who get the most words 
correct. 

Sample Run 

PARTNERS 

INSTRUCTIONS BEFORE PLAY? YES 

HOW MUCH DO YOU RELY ON YOUR 
PARTNER? IF YOU RELY ON HIM 
OR HER TO THE FULLEST, THIS 
GAME WILL SURE TELL. THIS 
GAME REQUIRES AT LEAST 2 
PLAYERS; WHILE UP TO 10 CAN 
PLAY. 

THE OBJECT OF THE GAME IS TO 
INPUT 5 WORDS BEFORE A MINUTE 
HAS ELAPSED. EACH TEAM WILL- 
SELECT WHO WILL SEE THE 
WORD. AFTER SEEING IT THE PLAYER 
WILL PRESS ENTER. THE SCREEN 
WILL CLEAR. 



288 




READ 
WORD DATA 



GET ONE 
WORD 




CONTINUE I <" ASC(US) = 31 " 

WORD ENTRY N 




ADVANCE TO 
NEXT PARTNERS 




Flowchart for Partners 
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PRESS A KEY 

YOUR PARTNER (WHO SAW THE 
WORD) WILL THEN GIVE YOU CLUE 
WORDS TO WHAT IT MIGHT BE, BUT 
NOT THE ACTUAL WORD ITSELF. 
YOU WILL THEN START INPUTTING 
GUESSES OF WHAT YOU THINK THE 
WORD IS. AS SOON AS YOU HAVE 
INPUT THE CORRECT WORD, 
TIMING WILL STOP. YOU AND YOUR 
PARTNER WILL CHANGE PLACES, 
CHANGE PLACES, 
AND YOUR PARTNER 
WILL VIEW 
ANOTHER WORD, UP 
TO A TOTAL OF 5. 

PRESS A KEY 



REMEMBER THAT YOU'LL ONLY HAVE 
ONE MINUTE TO ENTER ALL 5 WORDS 
(EXCEPT FOR CHANGING TO REVIEW 
ANOTHER WORD). 

NUMBER PLAYING? 5 
EVEN NUMBER ONLY- 
NUMBER PLAYING? 4 
NOW ENTER THE 4 PEOPLE 
THAT WILL BE PARTNERS, 
AS EACH WILL PLAY. 
? EARTHA 
? FRAN 

? WILL 
? RANDY 

Program Listing 

10 REM PROGRAM TITLE: PARTNERS 

20 CLEAR 500:CLS 

30 RANDOM:DIM WS ( 50 ) , W( 5 ) , T( 1 1 ) 
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4 PR INT" PARTNERS" 

50 PRINT 

60 INPUT" INSTRUCTIONS BEFORE PLAY < Y / N ) " ; X S 
70 IF X5 = "N" OR X$="NO" THEN 470 
80 PRINT"HOV MUCH DO YOU RELY ON YOUR" 
90 PRINT"PARTNER? IF YOU RELY ON HIM" 
100 PRINT"OR HER TO THE FULLEST, THIS" 
110 FRINT"GAME WILL SURE TELL THIS" 
120 PRINT"GAME. REQUIRES AT LEAST 2" 
130 FRINT"FLAYERS, VH I L E UP TO 10 CAN" 
140 FRINT"PLAY " 

150 PRINT"THE OBJECT OF THE GAME IS TO" 
160 PRINT"INPUT 5 WORDS BEFORE A MINUTE" 
170 FRINT"HAS ELASPED EACH TEAM WILL" 
180 FRINT"SEL£CT WHO WILL SEE THE " 
190 FRINT"WORD AFTER SEEING IT THE PLAYER" 
200 PRINT"WILL PRESS ENTER; THE SCREEN" 
2 10 PR I NT" WILL CLEAR " 
220 FOR T=l TO 5000:NEXT :PRINT 
230 FRINT M FRESS A KEY" 
240 X$=INKEY$;IF X$ = "" THEN 240 
250 PRINTING , CHR$ ( 30) 

260 FRINT-YOUR PARTNER (WHO SAW THE " 
270 PRINT"WORD) WILL THEN GIVE YOU CLUE" 
280 PRINT"WORDS TO WHAT IT MIGHT BE, BUT" 

2 90 FRINT"NOT THE ACTUAL WORD ITSELF." 
300 PRINT"YOU WILL THEN START INPUTTING" 
310 PRINT"GUESSES OF WHAT YOU THINK THE " 
320 PRINT"WORD IS AS SOON AS YOU HAVE" 
330 PRINT"ENTERED THE CORRECT WORD" 

340 PRINT"TIMING WILL STOP YOU AND YOUR" 
350 PRINT"PARTNER WILL CHANGE PLACES," 
360 FRINT"AND YOUR PARTNER WILL VIEW" 
370 PRINT"ANOTHER WORD, UP" 
380 PRINT"TO A TOTAL OF 5." 

3 90 PRINT 

400 FRINT"PRESS A KEY " 

410 X$=INKEY$:IF X $ = " " THEN 410 

420 CLS 

430 PRINT"REMEMBER THAT YOU'LL ONLY HAVE" 

440 PRINT"ONE MINUTE TO ENTER ALL 5 WORDS" 

450 PRINT" (EXCEPT FOR CHANGING TO" 

460 PRINT"REVIEW ANOTHER WORD.)" 

47 PRINT 

480 INPUT"NUMBER PLAYING" ;X 

490 IF INT(X/2 ) *2< >X THEN 510 

5 00 GOTO 5 30 

510 PRINT"£VEN NUMBER ONLY..." 
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5 20 PRINT: GOTO 480 

530 IF X>10 THEN FRINT;GOTO 480 

540 FRINT"NOV ENTER THE " ; X ; " PEOPL E " 

550 PRINT"THAT WILL BE PARTNERS , " 

560 PRINT"AS EACH WILL PLAY." 

570 1= 1 :M=2 

580 INPUT QS ( I ) 

590 IF I=M THEN 6 1 

6 00 1 = 1 +1 : GOTO 5 80 

6 10 IF I > =X THEN 630 

620 1=1+1 :M=M+ 2 : PRINT: GOTO 5 80 

630 REN GET POINT WORD LIST 

640 FOR 1=1 TO 50:READ WS ( I ) 

650 V< I )al :NEXT: WM=0 

660 1=1 

670 CLS : VWS = f,H 

680 PRINT QS<I);" YOU WILL NOW VIEW THE" 

690 FRINT"WORD PRESS ENTER WHEN" 

700 PRINT"READY YOU'LL HAVE 5 SECONDS'* 

710 FRINT"TO RECOGNIZE AND REMEMBER IT**; 

720 INPUT X5 

730 REM GET A WORD 

740 W=RND< 5 ) 

750 IF W(W>=-99 THEN 74 

760 W$=W$(W):W(W)=~99:CLS 

770 PRINT"THE WORD; ";WS 

780 FOR T=l TO 2 : NEXT : CLS 

790 PRINT QS(I);" GET YOUR PARTNER" 

8 PR I NT Q $ C I + 1 ) , " TO THE COMPUTER . " 
810 FRINT"TIMING WILL BEGIN (OR RESUME)" 
820 PRINT"WHEN YOU PRESS ENTER ";QS(I+1>; 
830 INPUT X$ 

840 CLS 

850 PRINT" INPUT YOUR WORD THROUGH INKEYS." 

860 PRINT"PR£SS THE CLEAR KEY AS SOON" 

870 PRINT ,! AS YOU ARE FINISHED, " ; Q 5 < I + 1 ) ; " 

880 PA=256: PRINT@3 8 4 /'TIME:"; 

890 FRINT@393 , "SECONDS" ;: IF TM <> THEN 910 

900 TM=0:REM TIME RESET 

91 PRINTGFA , CHR$ (143), 

920 V$=INKEY$ 

930 IF LEN(V$)O0 THEN 1050 

940 IF V$="" THEN 960 

950 FRINT@PA,V$; : GOTO 1010 

960 FOR TI=1 TO 25:NEXT 

970 TM=TM+ . 2 ; FRINT&3S9 , INT(TM) ; 

9 80 PRINT@PA , CHR$ ( 32 ) ; 
990 FOR TI=1 TO 35:NEXT 
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1000 IF INT(TM)=60 THEN 1370 ELSE GOTO 910 

1010 REM WORD 

1020 WW$=WW$+V$ 

1 030 PA=PA+ 1 

1 <3 GOTO 970 

1050 REM WORD FINISHED 

1060 IF ASC(V$>=31 THEN 1080 

1070 GOTO 940 

10 80 FRINT@PA,CHR$ (32 ) ; 

1090 IF WW$OW$ THEN 1110 

1100 GOTO 1160 

1110 FRINT05 12, "THAT IS NOT THE WORD ! ! " 

1 120 FOR TI = 1 TO 900 :NEXT 

1130 FRINT@256, CHR$ (30) ; 

1140 PRINT@5 12 , CHR$ < 3 ) , 

1 1 50 WW$ = " " : GOTO 880 

1 1 60 FRINT@5 12,; 

1170 FRINT'THAT IS CORRECT, ", Q $< I + 1 );*'!! " 

1180 IF WM> = 4 THEN 12 60 

1190 WM=WM+i 

1200 PRINT"FLEASE CALL ",Q$(I>;" TO THE" 

12 10 FRINT"COMFUTER FOR ANOTHER " 

12 20 PR I NT" WORD VIEWING, " ,0$ ( 1+1 ) ; " " 

1230 PRINT Q$(I); M PRESS ENTER"; 

1240 INPUT X$ :WW$="" 

12 50 GOTO 6 70 

1260 FOR TI=1 TO 2 : NEXT : CLS 

1270 FRINT"THAT IS ALL" i WM; "WORDS . " 

1280 PRINT"YOU STILL HAD" ; 6 - INT ( TM ) 

1290 PRINT"SECONDS REMAINING." 

1300 T ( I ) = 6 ~ I NT ( TM > 

1310 IF I+1>=X THEN 1400 ELSE 1=1+2 

1320 PRINT"IT IS NOW ";Q$(I>;" AND "; 

1330 PRINT QS(I+l); n, S TURN." 

1340 PRINT"FRESS ENTER WHEN READY"; 

13 50 INPUT X$ 

1360 TM=0 : WM= . GOTO 67 

1370 FRINT@512 , ; 

1380 PRINT"YOUR TIME HAS EXPIRED ! M «' 

1390 GOTO 1300 

1400 REM ARRANGE TIMES 

1410 REM BEST TO WORST 

142Q 1 = 1 : J=0 

1430 IF T( I ) >=T( 1+ 2 ) THEN 1460 

14 40 T=T( I) ;T( I )=T( 1+2 ) T(I+2)=T:J=1 
1445 VS<I)=Q$<I):VS(I+l)=Q$(I+i> 
1450 QS ( I )=QS ( 1 + 2) :QS < 1 + 1 )=Q$ ( 1+3) 
1455 Q$(I+2)=V$(I):Q$(I+3)=VS(I+1) 
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1460 1=1+2 

1470 IF I >X THEN 1490 

1480 GOTO 1430 

1490 IF J=l THEN 1420 

1500 FOR TI=1 TO 2000:NEXT 

1510 CLS 

1520 PRINT M FLAYERS / TIME CONSUMED" 

15 30 PR I NT" IN ORDER OF TIME « 

1540 J* 2 : FOR 1=1 TO X STEP 2 

1550 PRINT Q$<I);" £ " ;QS(J); 

1560 PRINT" CONSUMED" ; 6 0-TC I ) ; "SECONDS . " 

1570 FOR TI=I TO 900:NEXT TI : J= J+ 2 : NEXT I 

15 80 PRINT 

1590 PRINT"END OF RUN......" 

1600 END 

2000 DATA TELEVISION, ACCOMMODATE, TERRACE 

2010 DATA STEAM, CONCLUSION, AFFIRMATIVE 

2020 DATA SE CTI ON , JOGG ING , C I RCLE 

20 30 DATA GEOMETRIC , CONFUSE , THIRSTY 

2040 DATA STOCK , PURGE , VANDAL I ZE , PERMIT 

20 50 DATA REDUCE , LIMIT, GLANCE , TARGET 

2060 DATA ZOD I AC , VI HD , WE ATHER , FRAGRANCE 

2070 DATA MATERAL , SUSPENSE , BL ISTER 

2080 DATA ALUM , AMB I ENT , COMMUNI C ATE 

2090 DATA BYPASS , GULP , FORE I GNER , MORTGAGE 

2 100 DATA RECOMMEND, PYR AMI D , TENDER 

2110 DATA RECOVER, BRIDGE, WANDER, WALK 

2120 DATA COMPUTER, CORRESPOND , MATH 

2 130 DATA BL I ZZARD , ASHTRAY , HOUSE 

2 140 DATA AMOUNT, PROFESSION, DEMAND 

Variables and Strings 

X - Number of players, there must be an even number playing 

Q$(I) - Players' names 

W$(I) - Words 

W(I) - For word deleted 

WM - Word count 

WW$ - Total word entered (V$) 

W$ - Current word selected 

PA - Print @ location for letter entry 

TM - Time loop 

V$ - Entry of word through INKEY$ 

T(I) - Total time consumed by current partners 

I - Player count to go on to the next set of partners 
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Explanation of Program Lines 

Lines 10-470 display the general playing instructions. 

Lines 480-530 request the number of players. This must be an 
even number and is tested by line 490. 

Lines 540-620 request the players to input their names in 
pairs. 

Lines 630-650 read the words to be guessed from the data 
lines. 

Lines 660-720 display a message. 

Lines 730-760 select a word to be guessed. If the word has 
already been used, it will be deleted by setting W(W)=-99. 

Lines 770-780 prints the word so that one of the partners can 

see it. 

Lines 790-830 display a message for the other players (player 

2). 

Lines 840-1040 accept the input of the word guess by player 2 
by using the INKEY$ function to form WW$. Timing is kept by the 
variable TM which is advanced by +.2. If the integer of TM = 60, 
one minute has elapsed. If player 2 has entered the word and 
pressed the clear key (line 1060) the program will branch to line 
1080. 

Lines 1050-1070 test for the pressing of the clear key. 

Lines 1080-1250 determine whether or not the correct word 
was entered. Kit was, another word will be selected, ifWM<~ 4 in 
line 1180. If it wasn't, the same word will be given again. In either 
case continuing depends on the value of INT(TM), the amount of 
time that has elapsed. 

Lines 1260-1300 display a message indicating that all five 
words have been entered and showing the amount of time remain- 
ing. 

Lines 1310-1360 advance to the next set of partners (if there 

are more). 

Lines 1370-1390 display the time-expired message. 

Lines 1400-1490 arrange the times for each set of partners 
from best to worst. 

Lines 1500-1600 display the partners' names and the total 
amount of time it took them to enter all five words. 

Lines 2000-2140 are data lines containing all the words to be 
guessed. 
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POINT A TO POINT B 

This is one maze game you'll find hard to get away from. Unlike 
when you use the ordinary maze game (pressing different keys for 
different directions), you'll enter all of your directions and spaces 
before any movement takes place. Don't write down all the direc- 
tions and spaces ; you'll be wasting your time! The maze changes 
with each player or run. Note that the IBM version of this program 
is included in Appendix A. 

Sample Run 

< FROM POINT A > 

< TO POINT B > 

INSTRUCTIONS (Y/N)? Y 
NUMBER TO PLAY (1-10)? 1 

ARE YOU CONFUSED BY THE MANY 
DIFFERENT MAZE GAMES THAT ARE 
CURRENTLY ON THE MARKET? HAVE 
NO FEAR!! FROM POINT A TO 
POINT B IS HERE!! 
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f START J 



NUMBER 
OF PLAYERS 



IFG - 1 
PRINT INSTRUCTIONS 



PLAYERS' 
NAMES 



MAZE 
GRAPHICS 



CURRENT PLAYER 
INPUT DIRECTION 



NUMBER OF 
SPACES 




ADVANCE TO 
NEXT PLAYER 




OUTPUT ALL 
THAT MADE IT 



COMPUTER TO 
CARRY OUT ALL 
INSTRUCTIONS 



MESSAGE 




MESSAGE 



f STOP J 



Flowchart for Point A to Point B. 
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DIRECTION (L.R.U.D)?- 

ACTUALLY, THIS IS NOT YOUR 
RUN-OF-THE-MILL MAZE GAME. 
WHAT IT IS IS A MAZE GAME THAT 
WILL PROBABLY CONFUSE YOU MORE 
THAN EVER. YOU SEE, YOU WILL 
NOT BE CONSTANTLY BE PRESSING 
DIFFERENT KEYS FOR DIFFERENT 
DIRECTIONS; YOU'LL INPUT ALL 

PRESS ENTER? 

OF THE INSTRUCTIONS BEFORE YOU 

MOVE AT ALL; UP SO MANY 

SPACES, RIGHT SO MANY SPACES, 

LEFT SO MANY SPACES, ETC., ETC. 

AFTER YOU HAVE ENTERED ALL 

YOUR INSTRUCTIONS, 

YOU WILL INPUT XX. AT THAT 

POINT YOUR PIECE WILL BEGIN 

TO MOVE ACCORDING TO THE INSTRUCTIONS 

YOU GAVE. IF AT ANY POINT YOU 

COLLIDE WITH ANYTHING, 

IT IS THE END OF YOUR 

TURN- 



PRESS ENTER, AGAIN? 
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ENTER THE FIRST NAMES OF 
THE 1 PLAYERS, PLEASE 
? DAVE 

TO BEGIN DAVE, PRESS ENTER 

Program Listing 

10 REM PROGRAM TITLE : 

20 REM FROM POINT A TO POINT B 

30 CLEAR 300 : RANDOM ; CLS 

40 PR INT" < FROM POINT A > " 

50 PRINT"< TO POINT B > " 

60 PRINT:DIM D$(50) / S(50) 

7 INPUT" INSTRUCTIONS (Y/N) " ;W$ 

80 IF W$="N" THEN G=l 

90 INFUT"NUMBER TO PLAY ( 1 - I ) " ; A 

100 IF A<1 OR A>10 THEN 90 

110 IF G^l THEN G=0:GOTO 410 

120 PRINT"ARE YOU CONFUSED BY THE MANY" 

130 FRINT"DIFFERENT MAZE GAMES THAT ARE" 

140 FRINT"CURRENTLY ON THE MARKET? HAVE" 

150 PRINT"NO FEAR!! FROM POINT A TO" 

160 FRINT"FOINT B IS HERE!!" 

170 FRINT"ACTUALLY, THIS IS NOT YOUR" 

180 FRINT"RUN-OF~THE»MILL MAZE GAME." 

190 FRINT"VHAT IT IS IS A MAZE GAME THAT" 

200 PRINT"WILL PROBABLY CONFUSE YOU MORE" 

210 PRINT"THAN EVER. YOU SEE, YOU WILL" 

220 FRINT"NOT BE CONSTANTLY PRESSING" 

230 PRINT"DIFFERENT KEYS FOR DIFFERENT" 

240 PRINT"DIRECTIONS; YOU'LL INPUT ALL" 

250 INPUT"PRESS ENTER" ;W 

260 CLS 

270 PRINT"OF THE INSTRUCTIONS BEFORE YOU" 

280 PRINT"MOVE AT ALL; UP SO MANY" 

290 PRINT"SFACES, RIGHT SO MANY SPACES," 

300 PRINT"LEFT SO MANY SPACES, ETC . , ETC " 

310 PRINT"AFTER YOU HAVE ENTERED ALL" 

3 20 PRINT" OF YOUR INSTRUCTIONS, " 

330 PRINT"YOU WILL INPUT XX AT THAT" 

340 FRINT"FOINT YOUR PIECE WILL BEGIN" 

350 FRINT"TO MOVE ACCORDING TO THE 

INSTRUCTIONS" 

360 PRINT"YOU GAVE. IF AT ANY POINT YOU" 

370 PRINT"COLLIDE WITH ANYTHING " 

380 FRINT"YOUR TURN ENDS . " : PR I NT 
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400 INPUT"PRESS ENTER, AGAIN" ;W 

410 CLS 

420 REM PLAYERS 

430 REN PLAY IN ORDER OF ENTRY 

440 FRINT H ENTER THE FIRST NAMES OF" 

4 50 PR I NT "THE" ; A ; " PL AYERS , PLEASE" 
460 FOR 1=1 TO A:INPUT ASCI) 

470 NEXT:L=:1 :MX = 

480 PRINT 

490 FRINT"TO BEGIN ";AS(L);'\ PRESS ENTER"; 

500 INPUT W 

510 REM GRAPHICS 

52(1 CLS: FOR X = TO 127 

530 SETCX, 0) :SET(X,39) :NEXT 

540 FOR X=l TO 38 

550 SETC0 , X> :SET( 127 ,X) :NEXT: GOTO 580 

560 PRINT@6 5 , STRINGS (62,140), 

565 D*RND< 110) : IF D<102 THEN 565 

5 70 PRINTED, STRINGS (2,32); : RETURN 

580 GOSUB 560 : PR INT@1 9 3 , STRING $ ( 12, 131 ) ; 

590 PRINT82 2 , STRINGS (11,131); : GOTO 620 

600 PRINT82 3 2 , STRINGS (22,131); 

605 D=RND(252) : IF D<240 THEN 605 

610 PRINTED, STRINGS (2,32), : RETURN 

620 GOSUB 600 : N= 3 :M1=56 :H2=6 :M3=12 ; GOTO 670 

630 FOR X=M TO M1;SET(X,M2> 

640 SET( X ,M3 ): NEXT: FOR X=M2+l TO M3-1 

65 SET(M,X) :SET(M+1 ,X) :SET(M1-1 ,X) 

66 SET (Ml , X) .NEXT .RETURN 
670 GOSUB 630 

680 M=l :M1=15 :M2=12 :M3=17 : GOSUB 630 

690 M=19 :M1=28 : GOSUB 630 

70 M=Ml+3 :Ml=Ml+72 :M2=M3-2 ;M3=M3+6 

710 GOSUB 630 

72 M=Ml+4 :Ml=Ml+27 :M2=M2+6 :M3=M3+6 

730 GOSUB 630 

740 M=l :M1=28 : GOSUB 630:GOTO 770 

750 PRINT@590 , STRINGS (38 , 131 ) ; 

7 52 PRINT@3 7 1 , STRINGS (12,131); 

755 D=RND(626) : IF D<590 THEN 755 

758 F=RND(381 ) : IF F<371 THEN 758 

76 PRINTED, STRINGS (2,32), 

7 65 FRINT@F , STRINGS (2,32); : RETURN 

770 GOSUB 750 :M1=M1™4 :M2=M3+2 :M3=M3+6 

775 GOSUB 630 

780 M=Ml+4 :M1=M1+1 4 

790 GOSUB 630 

800 IF M>=1 12 THEN 880 
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8 10 GOTO 780 

820 M=M-15 :M1=M+10 :M2=2 :M3=5 

830 GOSUB 630 

840 M=M~14 :M1 =M+ 12 :M2^M3+3 ;M3=M3+8 

850 GOSUB 630 

860 M=M-15 :M1 = M+ 4 ;M2 = 4 :M3 = 6 

870 GOSUB 6 30 : RETURN 

880 REM START / STOP LOCATIONS 

890 GOSUB 820 : X X = 1 : Y=37 : X = 2 : X 2 = 1 2 5 

900 Xl=rRND(X2) 

9 10 RESETCX-1 , Y) 

920 X = X+1 

930 SET(X,Y) 

940 XX=XX+1:IF G*l AND XX>=150 THEN 1000 

950 IF X*X1 AND XX)=50 THEN 1000 

960 IF X>=X2 THEN 980 

9 70 GOTO 900 

980 RESETCX; Y) :RESET(X-1 , Y) 

990 X=2 : GOTO 900 

1000 XX=1 : PRINT@896 , ; : IF G=l THEN 1110 

1010 FRINT"THIS IS POINT A (START)." 

1020 RESETCX, Y) :RESET(X-I ,Y) 

1030 FOR T=l TO 50 :NEXT 

1040 SET(X,Y) 

1050 FOR T»l TO 2 5 : NE XT : XX=XX+ 1 

1060 IF XX<=10 THEN 1020 

1070 IF G*l THEN 1150 ELSE JJ=X 

108 G=l : PRINT@8 9 6 , CHR$ (30 ) 

1090 PRINT@896, "LOOK AT THE TOP (POINT B>." 

1100 X=2 : Y=2 ; XX=1 : Xl = l :X2=90 : GOTO 900 

1110 PRINT@8 9 6 , CHR$ (30) 

1120 PRINT@896, ; 

1130 FRINT"THIS IS POINT B (STOP ZONE)." 

1140 R=X:GOTO 1020 

1150 PRINT@8 9 6 , CHR$ (30) 

1160 GOTO 12 10 

1 170 PRINT@896 , ; 

1180 RETURN 

1190 FOR Tsl TO 1200:NEXT 

1200 FRINT@896,CHR$ (30) : RETURN 

1210 GOSUB 1170 

1220 PRINT"YOU WILL NOW GIVE INSTRUCTIONS" 

1230 GOSUB 1190:GOSUB 1170 

1240 PRINT"TO ENTER THE STOP ZONE..." 

12 50 GOSUB 1190: GOSUB 1170 

1260 PRINT"THE STOP ZONE BLOCK MUST BE HIT" 

12 70 GOSUB 1190: GOSUB 1170 

1280 FRINT"HEAD-ON TO COMPLETE A RUN," 
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1290 GOSUB 1190:GOSUB 1170 

1300 1=1 

13 10 INPUT "DIRECT I ON (L,R,U,D)";D$ 

1320 IF D$="XX" THEN 1380 

1330 D$ ( I >=D$ :GOSUB 1170 

1340 INFUT"FOR HOW MANY SPACES" ;S 

1350 S< I >=S : 1 = 1 + 1 :GOSUS 1170 

1360 IF I > =5 1 THEN 1430 

1370 GOSUB 1200:GOSUB 1170:GOTO 1310 

1380 GOSUB 1 1 70 

1390 PRINT"THE COMPUTER WILL NOW CARRY" 

1400 GOSUB 119Q:GOSUB 1170 

1410 PRINT"OUT ALL OF YOUR INSTRUCTIONS 

1420 1=1-1 :H=I: 1=1 :X=JJ:Y=37:G=0 

142 5 GOSUB 11 90: GOTO 1480 

1430 GOSUB 1170 

1440 PRINT"THAT IS THE LIMIT OF THE" 

1450 GOSUB 1190: GOSUB 1170 

146 PRINTS" INSTRUCTIONS YOU CAN ENTER . " 

1470 GOSUB 1190:GOTO 1380 

1480 D$=D$ ( I ) :S = S< I ) : J=l 

1490 IF D$="L" THEN 1540 

1500 IF U$="R" THEN 1580 

15 10 IF DS^^U" THEN 1620 

1520 IF D5= M D" THEN 1660 

1530 GOTO 1760:REM BAD DIRECT 

1540 IF FQINT<X-1 , Y) THEN 176 

1550 X=X-1:RESET(X+1,Y> 

1560 IF X<=0 THEN 1760 

15 70 GOTO 16 90 

1580 IF POINT(X+l,Y) THEN 1760 
1590 X = X+1 :RESET(X~1 , Y) 
1600 IF X>=126 THEN 176 

16 10 GOTO 1690 

1620 IF POINT<X, Y~ 1 ) THEN 1760 
1630 YsY-1 :RESET<X, Y+i ) 
16 40 IF Y<=1 THEN 17 60 

16 50 GOTO 16 90 

1660 IF FOINTCX, Y+l > THEN 1760 
1670 Y=Y+1: RESET (X,Y~1> 
1680 IF Y>=39 THEN 1760 
1690 SET(X,Y> 

17 00 IF S> J THEN 1720 
17 10 GOTO 1730 

1720 J = J+1 :GOTO 1490 

1730 1=1+1 

17 40 IF I>H THEN HH= 1 : GOTO 1760 

17 50 GOTO 14 80 
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1760 GOSUB 1170:IF ABS<X-R><=1 THEN 2 0<SO 

1765 IF HH=1 THEN HH=*0:GOTO 1900 

1770 PRINT"SORRY. . .YOU HAVE ATTEMPTED" 

1780 GOSUB 1190: GOSUB 1170 

1790 PRINT-A SHORT-CUT THAT DIDN'T WORK . M 

1800 REM ANOTHER PLAY? 

1810 GOSUB 1190 

1820 GOTO 1 950 

18 30 GOSUB 1190; GOSUB 1170 

1840 PRINT"READY TO TRY AGAIN CY/N>"; 

1850 INPUT W$ 

1860 IF WS="Y" THEN 1880 

1870 GOTO 2300 

18 80 RESETCX, Y) :RESET(R, 2) 
1890 GOTO 1970 

1900 GOSUB 1170 

1910 PRINT"THAT WASN'T ENOUGH TO GET" 

1920 GOSUB U90:GOSUB 1170 

1930 PRINT"YOU TO THE STOP ZONE ";A$(L> 

19 40 GOTO 1800 

1950 REM PLAYER ADVANCE 

1960 IF L>=A THEN 2020 ELSE L = L+1 

1970 GOSUB 1170 

1980 PRINT A$(L);" WILL NOW ATTEMPT THE" 

19 90 GOSUB 1190: GOSUB 1170 

2000 PRINT n VENTURE FROM POINT A TO B . M 

2005 RESETCX, Y) :RESET(R, 2 ) : GOSUB 560 

2010 GOSUB 600:GOSUB 75 : M= 1 1 2 : Ml = 1 2 2 

2015 GOSUB 1190;GOTO 880 

2020 REM START OVER 

2030 L=l : GOSUB 1 1 70 

2040 PRINT H ALL HAVE PLAYED " 

2050 GOSUB 21 60 ;MX=0 : GOTO 1830 

2060 IF ABS< Y~2 ) > =1 THEN 1900 

2070 GOSUB 1190:GOSUB 1170:REM COMPLETE 

2080 PRINT"VERY WELL DONE, " ; A $ ( L ) ; " !! " 

2090 GOSUB 1190:GOSUB 1170 

2100 PRINT"YOU HAVE MADE A COMPLETE" 

2110 GOSUB 1190:GOSUB 1170 

2120 PRINT"PASSAGE TO POINT B " 

2 130 GOSUB 1 1 90 

2140 M(L)=I ;MX=1 

2 150 GOTO 1950 

2 160 REM PLAYERS MADE TO POINT B 

2170 IF MX=G THEN RETURN 

2180 GOSUB 1190:GOSUB 1170 

2190 PRINT"THE FOLLOWING HAVE EASILY MADE' 

2200 GOSUB 1190:GOSUB 1170 
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22 10 PRINT" IT TO POINT B " 

2220 GOSUB 1190:GOSUB 1170 

2230 FOR U=l TO A 

2240 IF M(U)=1 THEN 2 26 

2250 NEXT:RETURN 

22 60 PRINT A$ (U) ; " " 

2270 GOSUB 1190:GOSUB 1170 

2280 K(U)=0 :GOTO 22 50 

2300 REM END 

2310 GOSUB 1190:GOSUB 1170 

2320 PRINT"FOINT A TO POINT B" 

2330 GOSUB U?0:GOSUB 1170 

2340 PRINT n TERNINATED ■' 

2350 GOSUB 1190;GOSUB 1170 

2360 END 

Variables and Strings 

A .-... Number of players 

G - 0/1 for skip of the instructions 

A$(I) - Player's first names 

L - Current player 

D,F - A random amount to make certain parts of each maze different 

M,M1,M2,M3 - For maze graphics 

X,Y - Start location ; JJ=X at point A 

X,Y - Stop location ; R=X at point B 

D$(I) - User's direction 

S(I) - Spaces per direction 

I - Number of moves, up to 50 

H - Total number of moves entered 

D$ - Direction, as per D$(I) 

S - Spaces, as per S(I) 

J - Total spaces per direction (counter) 

M(L) - Players that made it to point B 

Explanation of the Program Lines 

Lines 10-400 request the number of players and display the 
general instructions. 

Lines 410-470 accept the players' first names. 

Lines 480-500 display a message to the current player. 

Lines 510-870 create the maze graphics. The random variable 
D and F will help insure that certain parts of the maze will be 
different each time in case there are users who decide to cheat by 
writing down the instructions. 
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Lines 880-1160 randomly select the locations of point A, the 
start, and point B, the stop. 

Lines 1170-1180 form a subroutine used for displaying mes- 
sages. 

Lines 11904200 form a subroutine that creates a pause and 
clears the message from the screen. 

Lines 1210-1290 display a message to the user before he or she 
inputs his or her instructions. 

Lines 1300-1370 allow the user to input all of his or her 
instructions for getting to point B. Up to a total of 50 can be entered 
if they are needed. 

Lines 1380-1410 display a message indicating that the com- 
puter is ready to carry out the user's instructions. 

Lines 1420-1425 set some variables before the actual move- 
ment begins. 

Lines 1430-1470 displays a message indicating that no more 
instructions can be entered. 

Lines 1480-1750 cause the computer to carry out all of the 
instructions entered by the user. These lines also test for any hits. 
If a hit is encountered, the program is terminated or branches to the 
next player. 

Line 1760 tests to see if the user is close to point B. 

Line 1765 tests to see if the user has entered enough instruc- 
tions. 

Lines 1770-1820 display a message if a hit is encountered. 

Lines 1830-1890 ask if the user wants to try again after all have 
played. 

Lines 1900-1940 display a message indicating that there are 
not enough instructions to make it to point B. 

Lines 1950-2015 advance to the next player. 

Lines 2020-2050 display a message indicating that all have 
played and allow the user to try again! 

Line 2060 further tests to see if the player is at point B. If he is 
not, the program branches back to line 1900. 

Lines 2070-2150 print the names of all players that have suc- 
cessfully made it to point B and then terminate the program. 



305 




INJECTION 

In a laboratory there is a colony of bacteria. This colony was meant 
for experiments, but now it cannot be controlled. You'll have the 
honor of trying to destroy it. As many as five cubes of bacteria will 
race across the video one at a time. Your injector machine is located 
on the runner near the middle of the video. To inject, press the up 
arrow key. For an injection to work, it must hit directly in the 
opening of the bottom of the cube. If an injection is missed, the 
bacteria increase by one. To be successful, destroy all the cubes. 
Refer to pages 1-3 for information on the sound routine. Note that 
the IBM version of this program is included in Appendix A, and the 
Apple version in Appendix B. 

Sample Run 

> INJECTION < 

NUMBER TO PLAY? 4 

THE INITIALS OF PLAYERS. 

? A.A. 

? B.B. 

? C.C. 

? D.D. 

YOU ARE HEAD OF A LABORATORY 
IN WHICH YOUR COMPANY IS 
INJECTING CUBES WITH 
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f START J 
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Flowchart for Injection . 
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H\tfin&o 



A SOLVENT TO DESTROY A COLONY 
OF BACTERIA THAT CANNOT BE 
CONTROLLED. THESE CUBES WILL 
RACE ACROSS THE SCREEN 5 AT A 
TIME. TO INJECT A CUBE, HOLD 
THE UP ARROW KEY. THE 
SOLVENT MUST GO IN THE OPENING 
AT THE BOTTOM OF THE CUBES. 

PRESS ENTER? 

EACH TIME A CUBE IS INJECTED, 
THE NUMBER RACING ACROSS THE 
VIDEO WILL DECREASE BY ONE, BUT 
NOT LESS THAN THREE WILL RACE 
ACROSS AT ONE TIME. A TOTAL 
OF 10 CUBES MUST BE INJECTED. 
IF AT ANYTIME YOU MISS AN 
INJECTION, THE NUMBER WILL 
INCREASE BY ONE. THE INJECTION 
MACHINE CAN BE MOVED LEFT OR 
RIGHT WITH THE LEFT AND RIGHT 
ARROW KEYS. GOOD LUCK- 
PRESS ENTER TO BEGIN? 
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Program Listing 



10 REN PROGRAM TITLE: INJECTION 

20 CLEAR 100 

3 RANDOM 

40 CLS 

50 PRINT") INJECTION < " 

60 PRINT:S=31266 

70 INFUT"NUMBER TO PLAY (i-10)";U 

80 IF U<1 OR U>10 THEN 70 

90 PRINT"THE INITIALS OF PLAYERS . " 

100 FOR 1=1 TO U:INPUT K$ ( I ) 

110 NEXT: FRINT:PL=1 

120 PRINT" YOU ARE HEAD OF A LABORATORY" 

130 PRINT"IN WHICH YOUR COMPANY IS " 

M0 PRINT" INJECTING CUBES WITH" 

150 PRINT"A SOLVENT TO DESTROY A COLONY" 

160 PRINT"OF BACTERIA THAT CANNOT BE" 

170 FRINT"CONTROLLED THESE CUBES WILL" 

180 FRINT"RACE ACROSS THE SCREEN 5 AT A" 

190 FRINT"TIME. TO INJECT A CUBE, HOLD" 

200 PRINT"THE UP ARROW KEY. THE INJECTED" 

210 PRINT"SOLVENT MUST GO IN THE OPENING" 

2 20 PRINT" AT THE BOTTOM OF THE CUBES." 

23 PRINT 

2 40 PRINT 

250 INPUT"FRESS ENTER" ;L 

2 60 PRINT@6 4 , CHR$ (30) 

270 PRINT"EACH TIME A CUBE IS INJECTED," 

280 FRINT"THE NUMBER OF CUBES RACING ACROSS" 

290 PRINT"THE VIDEO WILL DECREASE BY ONE, BUT" 

300 PRINT"NOT LESS THAN THREE WILL RACE" 

310 PRINT"ACROSS AT ONE TIME A TOTAL" 

320 PRINT"OF 10 CUBES MUST BE INJECTED." 

330 PRINT" IF AT ANYTIME YOU MISS AN" 

340 FRINT"INJECTION, THE NUMBER WILL" 

350 PRINT"INCREASE BY ONE. THE INJECTION" 

360 FRINT"MACHINE CAN BE MOVED LEFT OR" 

370 FRINT"RIGHT, WITH THE LEFT AND RIGHT" 

380 PRINT"ARROW KEYS. GOOD LUCK,.," 

39 PRINT 

400 INPUT"PRESS ENTER TO BEGIN" ;L 

4 10 CLS : JN=0 : T= 1 : IN = 1 : E = : CV=5 : GOSUB 6 00 

420 REM THE CUBES 

430 X=65:Y=129:M=X:N=Y:J=0:JJ=0 

440 PRINT@X , STRINGS (6,191); 

4 50 FRINT@Y,STRING$ (6,191), 

460 PRINT@Y+2, " " ; 
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470 X = X + 8 . Y = Y + 8 : J = J+1 : POKE S,25 

480 IF JJ=1 THEN 520 

490 IF J> = CV THEN 510 

500 GOTO 44 

510 REM BLANK OUT 

52 PR I NT@M, STRINGS (6,32); 

5 30 FRINT@N, STRINGS (6 , 3 2 ) ; 
540 M=M+8 :N=N+8:SS=USR(0) 
550 REM RECYCLE 

560 IF X>=128 THEN X = 6 5 : Y^ 1 2 9 : J J = 1 : GOTO 580 

570 IP M>=128 THEN 430 

580 GOTO 72 

600 REM OUTER BORDER / INJECTOR 

610 FOR X = TO 127:SET(X / 0) 

620 SET(X,46):SET<X / 47):NEXT 

630 FOR X=l TO 45 

640 SET< , X) : SET( 1 , X) 

65 SET( 126 , X) : SETC 127 ,X> :NEXT 

6 60 FRINT@5 7 6 , STRINGS (63,191); 
670 Q=514 : I S=5TRINGS ( 2 , 191 ) : CA==0 

6 80 FRINT@Q, IS;: FRINT@770, " INJECTOR: " ; 

690 PRINT@642 , "CUBES REMAINING:"; 

700 FRINT@682 , "CUBES ADDED:"; 

710 FRINT@7 8 , K$ (PL) ; : RETURN 

720 REM INJECTION / INJECTOR MOVE 

730 IF R=8 THEN 790 

740 R=FEEK< 14440 ) 

750 IF R=8 THEN 790 

760 IF R=32 THEN 900 

770 IF R=64 THEN 960 

780 GOTO 4 40 

79 IF JN=1 THEN 810 

800 QQ^O:JN=l 

810 IF G<=191 THEN V=l:GOTO 860 

820 PRINTED, " " ; 

830 Q=Q-384 ;FRINT@Q, IS ; 

835 IF FEEK(Q+15360+2>=191 THEN 845 

84 GOTO 44 

845 IF PEEK(Q+15360»2)=191 THEN 1020 

85 GOTO 44 
860 FRINT@Q," 

870 Q=:QQ + E:QQ=0 : E = 

880 FRINT@G, IS ; : IF V= 1 GOSUB 1140 

890 R»0 ; JN=0: GOTO 440 

900 REM TO LEFT 

910 IF Q<»516 THEN 440 

9 20 PR INT@Q, " " ; 

930 Q-Q-T 
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940 FRINT8Q, 1$ ; 

9 50 GOTO 44 

960 REM TO RIGHT 

970 IF Q>»570 THEN 440 

9 00 PRINTfcQ," •• ; 

990 QmQ+T 

1000 PRINT®Q,I*; 

10 10 GOTO 440 

1020 IF FEEK<a+15360-64 >«191 THEN 1030 

10 25 GOTO 44 

1030 IF FEEK<a+1536G-l )«191 THEN 1045 

1040 GOTO 440 

1045 IF FEEK<Q+1536G+1 >«1?1 THEN 1060 

10 50 GOTO 44 

1060 REM INJECTED 

1070 T«T+1 : CV=CV»1 ; POKE S , 2 5 5 : SS=USR ( ) 

1080 IF T>*5 THEN T= 1 

1090 IF CV< = 2 THEN CV*5 

1100 IN=IN-1 : PRINT@6 6 , IN; 

1110 IF IN< = THEN 1250 

1120 E=RND(5):IF E+QQ>=572 THEN E=-RND(5> 

1130 GOTO 86 

1140 REM CUBE ADDED / INJECTION MISSED 

1150 IN=IN+l:FOKE S , 5 : SS=USR< ) 

1160 CA = CA+1 :V=s0 

1170 T=T-1 

1180 IF T<=0 THEN T= 1 

1 1 90 PRINT@660 , IN; 

1200 FRINT@6?5 , CA; 

12 10 RETURN 

1250 REM PLAYER ADVANCE 

1260 W<FL>=CA: PL=PL+1 

1270 IF PL>U THEN 1310 

12 80 FRINT&770, "STANDBY " ;K$ < PL) ; " " ; 

1290 FOR YY = 1 TO 1500:NEXT 

13O0 R=0:GOTO 410 

1310 FOR YY=1 TO 900:NEXT:CLS 

1320 FRINT"ALL PLAYERS HAVE HAD THEIR" 

1330 FRINT"TURN AT THE INJECTION MACHINE." 

1340 FRINT n SCORES ARE BASED ON THE NUMBER" 

1350 PRINT"OF CUBES THAT WERE ADDED DURING' 

1360 PRINT"THE INJECTION PROCESS." 

1370 PRINT;FOR 1=1 TO U 

1380 PRINT"INJECTOR: " ; K$ ( I ) 

13 90 PR I NT" HAD" ;V( I > ; "CUBES ADDED. " 
1400 PRINT'*FINAL SCORE EVALUATION: "; 

14 10 V=W< I ) 

1420 IF W>=0 AND W<=5 THEN 1470 



311 



1430 IF V>=5 AND W<=rlO THEN 1480 

1440 IF W>=10 AND V<-20 THEN 1490 

1450 PRINT M TO SORRY TO MENTION," 

1460 GOTO 15 00 

14 70 PRINT" EXCELLENT " GOTO 15 00 
1480 FRINT"FAIR, " : GOTO 1500 
1490 PRINT"FOOR, " 

1500 FOR YY=1 TO 1200:NEXT YY:PRINT 

1510 NEXT I 

15 20 PRINT 

1530 PRINT"END OF INJECTION." 

15 40 END 

Variables and Strings 

S - Sound location (machine language) 

U - Number of players 1-10 

K$(I) - Initials of players 

PL - Total number of players, counter 1 to U 

JN - 0/1 variable ; 1 means that QQ is already set to the amount of Q 

(before injection) 
IN - Total injections 
E - Random amount added to Q when it returns to its former location 

(after injection) 
X,Y,M,NJJJ - All for graphics of cubes 
SS - USR call, sound routine 
Q - Print @ location of injector 
1$ - Injector 

CA - Cubes added, injection missed 
R - Peek for users key closure 
QQ - Value of Q 0N=1) before injection (Q location) 
T - Amount added to Q if cube is injected ; this amount will not be 

larger than 4 
W(PL) - Player, number of cubes injected 
W - Value of W(PL) for print messages 

Explanation of the Program Lines 

Lines 10-400 accept the input of the number of players and 
their names, and display the general instructions. 

Line 410 initializes some variables, and uses lines 600-710 to 
set the outer border and print a message. 

Lines 420-570 draw the cubes (5) and blank out a portion at the 
lower center of each. Lines 440-580 also keep the cubes moving. 
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Lines 720-770 test for key closure and determine whether or 
not R is equal to 8. 

Line 780 recycles back to line 440 to keep the cubes moving. 

Line 790 tests whether or not JN=1. If it does QQ already 
contains the value of Q. This is the value before the injection. 

Line 800 sets the variable QQ to the value of Q, meaning that 
the user is ready to make an injection. JN is set to 1. 

Line 810 tests the value of Q for resetting purposes. Lines 
860-890 are used. 

Lines 820-850 tests to see if a cube has been injected. If one has 
been, the program will branch to the appropriate lines. 

Lines 900-950 allow the user to move the injector to the left. 

Lines 960-1010 allow the user to move the injector to the right. 

Lines 1020- 1050 test peek(Q +15360 + or - an amount) to see 
if the cube has really been injected. 

Lines 1060-1130 are used when the cube had been injected. 
The variable IN is decreased by one. A random amount E, is added 
to Q so the user cannot expect another injection to occur in the same 
location at that moment. 

Lines 1140-1210 are used when the injection missed. Another 
cube is added. The total number of injections and cubes are printed 
in lines 1190 and 1200. 

Lines 1250-1310 go to the next player if PL (player counter) is 
less than U (total players). If this argument is satisfied, the program 
branches back to line 410. The variables are reset and the next 
player begins. 

Lines 1320-1540 terminate the program. All players' names, 
their scores, and messages are printed. 
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INTERCEPT 

This game requires you to intercept and possibly destroy any 
intruder that wanders into your dome. You have been given a ten 
day commission to guard this city within a dome. Some of the 
figures that enter the dome are alien ; some are friendly. Within an 
allotted amount of time, you must decide which is which. It helps to 
remember the shape of the figures. Do not destroy the friendly 
intruders! Note that the IBM version of this program is included in 
Appendix A. 

Sample Run 

INTERCEPT 

INSTRUCTIONS? YES 
YOU ARE THE LEADER OF A SPECIAL 
GROUP KNOWN AS INTERCEPT. 
YOU WILL HAVE TO IDENTIFY AND 
POSSIBLY DESTROY ANY ALIENS THAT 
VENTURE IN THIS STERILIZED DOME 
WHERE ALL OF YOUR INHABITANTS 
LIVE. THE DOME, WHICH CONTAINS 
CROSSROADS, IS THE TERRITORY. 
NEAR THE EDGES OF THE SCREEN 
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f START J 




INTRUDER HIT 



Flowchart ior intercept* 
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LEADER: 

PRESENT CONDITION: QUIET 
LASER STATUS: CHARGING 
DAYS ON COMMISSION: 10 

ARE TWO LASER CANNONS. 
THESE CANNONS WILL FIRE ONLY 
WHEN THE CORRECT KEY SEQUENCE 
HAS BEEN ENTERED BY YOU. 

PRESS ENTER PLEASE? 

AT RANDOM TIMES, DIFFERENT FIGURES 
WILL APPEAR AT THE CENTER OF 
THE VERTICAL ROAD OF THE CROSS- 
ROADS. WHEN THE FIGURE IS AT THE 
CENTER IN LINE WITH YOUR LASER, 
YOU MUST DECIDE WHETHER IT IS ALIEN 
OR FRIENDLY. IF YOU BELIEVE THAT 
IT IS THE LATTER OF THE TWO, DO 
NOTHING; JUST LET IT PASS. IF 
YOU BELIEVE IT IS ALIEN, FIRE THE 
LASER BY PRESSING THE RIGHT THEN 
THE LEFT ARROW KEYS, THEN FINALLY 
PRESSING THE SPACEBAR. YOU CAN 
HAVE THE LASER READY BEFOREHAND 
BY PRESSING THE ARROW KEYS TO 
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PRESS ENTER PLEASE? 

MAKE THE LASER READY, YOUR COM- 
MISSION WILL LAST 10 DAYS. IF 
YOU DESTROY 10 FRIENDLY IN- 
TRUDERS BEFORE THAT TIME, YOUR 
COMMISSION WILL BE TERMINATED 
BEFORE THEN. 

THE FINAL OBJECT IS TO DESTROY AS 
MANY ALIEN INTRUDERS AS YOU CAN 
BEFORE YOUR COMMISSION EXPIRES. 

YOUR LAST NAME, PLEASE? SMITH 

Program Listing 

10 HEM PROGRAM TITLE: INTERCEPT 

20 CLEAR 200 : RANDOM 

30 CLS: SS=31266 

40 PRINT CHR$(157);" INTERCEPT ";CHR$<174> 

5 PRINT 

60 INPUT" INSTRUCTIONS <Y/N>" ;Q$ 

70 IF Q$="N" OR Q$»"NO M THEN 520 

8 PRINT 

90 PRINT"YOU ARE THE LEADER OF A SPECIAL" 
100 FRINT"GROUF KNOWN AS INTERCEPT," 
110 PRINT"YOU WILL HAVE TO IDENTIFY AND" 
120 PRINT"POSSIBLY DESTROY ANY ALIENS THAT" 
130 PRINT-VENTURE IN THE STERILIZED DOME" 
140 PRINT"WHERE ALL OF YOUR INHABITANTS" 
150 FRINT"LIVE. THE DOME IS SQUARE AND" 
160 PRINT"HAS A CROSSROAD WITHIN IT." 
170 PRINT"AT THE LEFT AND RIGHT EDGE OF THE 

HORIZONTAL" 
180 FRINT"ROAD ARE TWO LASER CANNONS." 
190 FRINT*'THESE CANNONS WILL FIRE ONLY" 
200 PRINT-WHEN THE CORRECT KEY SEQUENCE" 
210 PRINT"HAS BEEN ENTERED BY YOU." 
220 PRINT 
230 INPUT"PRESS ENTER PLEASE" ;Q$ 

240 CLS 

250 PRINT-AT RANDOM TI MES , D I FFERENT FIGURES' 

260 FRINT"WILL APPEAR AT THE CENTER OF" 

270 PRINT"THE VERTICAL ROAD OF THE CROSS-" 

280 FRINT"ROADS. WHEN THE FIGURE IS AT THE" 

290 PRINT"CENTER IN LINE WITH YOUR LASERS" 
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300 FRINT"YOU MUST DEC I DE WHETHER IT IS ALIEN' 
310 FRINT u OR FRIENDLY,. IF YOU BELIEVE THAT" 
320 PRINT" IT IS THE LATTER OF THE TWO, DO" 
330 PRINT"NOTHING, JUST LET IT PASS, IF n 
340 PRINT"YOU BELIEVE IT IS ALIEN, FIRE THE" 
350 FRINT"LASER BY PRESSING THE RIGHT THEN" 
360 PRINT"THE LEFT ARROW KEYS, AND THEN 

FINALLY" 
370 PRINT"PRESSING THE SPACEBAR. YOU CAN" 
380 PRINT-HAVE THE LASER READY BEFOREHAND" 
390 FRINT"BY PRESSING THE ARROW KEYS TO" 
400 INFUT"FRESS ENTER PLEASE M ;Q$ 
410 CLS 

420 PRINT"MAKE THE LASER READY. YOUR COM-" 
430 PRINT"MISSION WILL LAST 10 DAYS, IF" 
440 PRINT"YOU DESTROY 10 FRIENDLY IN-" 
450 FRINT"TRUDERS BEFORE THAT TIME, YOUR" 
460 PRINT"COMMISSION WILL BE TERMINATED" 

d 7 PR T MT 11 P r mo c Ttrrvr n 

480 FRINT-THE FINAL OBJECT I S TO DESTROY AS" 

490 PRINT"MANY ALIEN INTRUDERS AS YOU CAN" 

500 PRINT"BEFORE YOUR COMMISSION EXPIRES " 

510 PRINT 

520 PRINT 

530 INPUT"YOUR LAST NAME, PLEASE" ;P$ 

540 CLS 

550 REM INTERCEPT CROSSROADS 

560 X$=STRING$ (26,191) 

5 70 A=5 ; J=l 

5 80 PRINT@A, X$ : PRINT@A+3 2 , X$ , 

5 90 PRINT@A+3 0,X$ ; : PR I NT@A+ 3 5 , X$ ; 
600 A=A+64 : J = J+1 

610 IF J>=5 THEN 63 

620 GOTO 580 

630 AA=3 15 : AS^CHRS ( 1 57 )+CHR§ (183) 

6 40 AA$=CHR$ (187) + CHRS < 174 ) 
650 PRINT@A,AS ; :PRINT@AA, AAS ; 
6 60 FRINT@5 8 1 , "LEADER : " ; P $ 

670 FRINT@645, "PRESENT CONDITION:" 

68Q PRINT@709, "LASER STATUS:" 

690 FRINT@773, "DAYS TO GO ON COMMISSION:" 

700 REM GET FIGURES 

710 REM FRIENDLY 

720 FS ( 1 >=CHR$ ( 134) : F$ (2>=CHR$( 139) 

73 F$(3)=CHR$ (14 1) : F $ < 4 ) = CHR $ ( 1 5 3 ) 

740 FS (5)=CHR$ (166) 

750 REM ALIEN 

76 A$( 1)=CHR$ (135) : AS ( 2 ) =CHR $ ( 1 3 7 ) 

318 



77 A$ ( 3>=CHR$ ( 142 > : A$ <4)*CHRS (158) 

780 AS ( 5)=CHR$ < 173 > 

790 REM DOUBLE SIZE 

800 FOR I»l TO 5 

810 F$ ( I )=F$ ( I )+F$ ( I ) 

820 AS ( I >=A$ < I ) + A$ ( I ) 

830 NEXT: Kl=A+2 :K2=A+ 28 

840 REM DAYS / ALIEN / FRIENDLY 

85 DA=10 : A 1=0 : FI=0 : AD=0 : FD=0 : DF=0 

8 60 C$= n QUIET " : CC$ = " ALERT" 

870 L$* H CHARGING" : LL$= n READY 

880 FRINT@667, C$ ; 

890 PRINTG731 ,L$ ; 

900 FRINT@798,DA, 

910 REM START LOCATION 

920 L = 544 

930 REM CONDITION 

940 FOR T*l TO 500 

950 1=KHD(^> 

960 N=RND(5) 

970 IF N=I THEN 1000 

980 NEXT T 

99 GOTO 94 

1000 REM ALERT / INTRUDER 

1005 IF T<=200 THEN T=T+ 1 : GOTO 1005 

1010 X = : LF=1 : XC = :DS = : YU=0 

102 FRINT@6 67, STRINGS (6,32); 

1030 FOR T=l TO 100:NEXT 

1040 FRINT@667, CCS ;: POKE SS , 1 ; S = USR ( O ) 

1050 FOR TT=1 TO 150:NEXT 

1060 X«X+1:IF X<=4 THEN 1020 

10 70 FRINT@6 6 7 , " INTRUDER" ; 

1080 R=RND<2) 

1090 IF R=2 THEN 1110 

1100 PRINT@L , F$ (N) ; : GOTO 1115 

1 1 10 FRINT@L, AS <N> ; 

11 15 YU=YU+1 

1120 IF E = THEN E = FEEK ( 1 5 3 4 > 

1125 IF LF=4 THEN 1360 

1130 MM=RND<2) 

1140 IF MM=1 AND YU<=7 THEN 1180 

1150 IF L<=32 THEN 152 

1160 L=L-6 4 : FRINT£L+64 , STRINGS (2,32); 

1170 IF LF<=3 GOTO 1200 ELSE 1360 

1180 IF L>=544 THEN MM=2 : GOTO 1150 

1190 L=L+64: PR INT@L - 6 4 , STR ING S (2,32) ; 

1200 IF E=32 AND LF=1 THEN 1240 

1210 IF E=64 AND LF=2 THEN 1250 
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1220 IF E=128 AND i,F = 3 THEN 1260 

1230 GOTO 1270 

1240 LF=2 : GOTO 1280 

1250 LF=3:GOTQ 1280 

1260 LF=4:GOTO 1280 

1 270 E=0 : GOTO 1090 

1280 FRINT@837 , "LASER KEY SEQUENCE:' 1 ; 

1290 PRINT LF-i:POKE SS , 3 : S = USR ( ) 

1300 IF LF = 3 THEN 1320 

13 10 GOTO 12 70 

1320 FRINT@731 , LLS ; 

13 30 GOTO 12 70 
1360 REM FIRING 

1370 IF R=l THEN 1390 

1380 FRINT@L , AS (N) ; : GOTO 1400 

1390 FRINT@L , FS (N) ; 

14 FRINT@A+2 , STRINGS < 2 5 , 140) ; 
14 10 PRINT@AA-2 5 , STRINGS (25,140); 

14 15 FOR TT=1 TO 30: POKE SS , i 5 : S = USR-< )■ 

14 17 NEXT 

1420 IF PEEKC A+ 1 5 3 6 + 2 7 ) = 3 2 THEN 1440 

14 30 GOTO 16 50 

14 40 PR I NT© 7 3 1,15; ; LF=1 

1450 FRINT@837 , " INDIRECT HIT 

1460 PRINT@K1 , STRINGS (25,32); 

14 70 PRINT@K2 , STRINGS (26,32) ; 
1480 FOR TT=1 TO 20POKE SS,45 
1490 S=USR( > :NEXT 

1 500 GOTO 1 090 

1520 REM INTRUDER IN DOME 

1525 IF YU<=5 THEN 1190 

1530 FRINT@L," " ; 

1540 FRINT@837, "INTRUDER IS NOV IN DOME 

1550 FOR TT=1 TO 30:POKE SS , 9 : S=USR ( ) 

1560 NEXT: PRINT@A+2 , STRINGS (52,32); 

15 65 PRINT@8 3 7 ,CHR$ (30) ; : FRINT@83 7, ; 
1570 FOR TT=1 TO 2 : NEXT : POKE SS , 1 7 5 
1575 S=USR(0):IF R=l THEN 1590 

15 80 GOTO 16 10 

15 90 PRINT" INTRUDER: FRIENDLY . . " 
1600 GOTO 16 20 

1610 PRINT"INTRUDER: ALIEN..." 

1620 FOR TT=1 TO 500:NEXT 

1630 IF XC<=1 THEN XC=XC+i:GOTO 1565 

1640 GOTO 1670 

16 50 FRINT0837, "INTRUDER: DESTROYED. . , " 
16 55 FOR TT=1 TO 20: POKE SS,TT+10 

1656 S=USR(0) :NEXT 
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1660 DS=1 : PRINT@L, " " ; : GOTO 1550 
1670 REM VARIABLE COUNT 

16 80 FRINT@8 3 7 , CHR$ < 3 ) : PRINT@8 3 7 , ; 
1690 IF DS=1 THEN 1810 

1700 IF R=l THEN 1750 

1710 AI=AI+1 

1720 FRINT"YOU NOV HAVE n ; A I ; " AL I ENS " ; 

1730 PRINT"IN THE DONE,'* 

17 40 GOTO 17 90 
1750 FI=FI+1 

1760 PRINT H YOU HAVE WISELY LET";FI;" 

1770 FRINT@901 , ; 

1780 FRINT"OF THE FRIENDS PASS " 

1790 REM CONT IF DAYS >=1 

1800 GOTO 19 00 

1810 REM DESTROYED 

1820 IF R=l THEN 1870 

1830 AD=AD+1 

1840 FRINT"YOU HAVE DESTROYED" ; AD ;" AL I ENS . " 

1850 GOTO 1900 

1870 FD=FD+1 

1880 PRINT FD; "FRIENDS HAVE NOV BEEN 

DESTROYED. " 
1890 REM 

1900 REM DX FOR DAYS DECREASE 
1910 REM IF LESS THAN OR EQUAL TO 75 
1920 DX=RND( 100 ) 

1930 IF DX<=75 THEN DA=DA- 1 : DF=DF + 1 
1940 FOR TT=1 TO 1200:NEXT 

19 50 PRINT@8 3 7 , STRING $ < 128 , 32 ) ; 
i960 IF DA<=0 OR FD>=10 THEN 198 

1970 FOR TT=1 TO 20. POKE SS , 2 : S = USR < ) 

1975 NEXT;GOTO 860 

1980 PRINT@837 , ; : IF FD>=10 THEN 2010 

1990 FRINT"YOUR COMMISSION HAS EXPIRED " 

2000 GOTO 2020 

2010 PRINT"YOUR COMMISSION IS TERMINATED..." 

2020 FOR TT=I TO 2000:NEXT 

2030 CLS 

20 40 PRINT" DURING YOUR" ; DF ; "DAY COMMISSION" 
2050 FRINT"YOUR RECORD IS AS FOLLOWS : " ; P $ ; 
2060 PRINT"," 

2070 PRINT H ALIENS ALLOWEDTO PASSINTO DOME:"; 

2080 PRINT A I 

2090 PRINT"ALIENS DESTROYED: " ; AD 

2100 PRINT"FRIENDLY INTRUDERS DESTROYED :"; FD 

2110 PRINT 

2120 IF FD>=10 THEN 2240 
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2130 PRINT"YOUR COMMISSION HAS BEEN TERMED: 1 

2140 IF AD> = 1 AND AD<=5 THEN 2170 

2150 IF AD> = 5 AND AD< = ? THEN 2190 

2160 IF AD>=10 THEN 2210 

2170 FRINT"IMPROPER. POOR USE OF LASER." 

2 180 GOTO 2 2 70 

21V0 PRINT"FAIR. LASER USED, BUT NOT 

ENOUGH. " 

2 2 00 GOTO 2 2 70 

2210 PRINT"EXCELLENT. ALL JUDGEMENTS WERE" 

2220 PRINT*'MADE WITH UTMOST CAUTION.* 1 

2 2 30 GOTO 22 7 

2240 FRINT"YOU HAVE DESTROYED" ; FD ; " FRI ENDL Y* 

2250 PRINT" INTRUDERS " ;PS;" DO NOT ATTEMPT" 

2260 PRINT"TO RETURN TO THIS COMMISSION." 

2 2 70 PRINT 

2280 PRINT"TERMINATION OF PROGRAM." 

2 2 90 END 



Variables and Strings 

SS - Sound location 

P$ - User's last name 

X$ - Crossroads graphics 

AJ,AA - For graphics 

A$,AA$ - Laser cannons, left and right 

F$(l-5) - Figures, friendly 

A$(l-5) - Figures, alien 

K1,K2 - For blanking laser after firing 

DA - Total days on commission 

AI - Alien intruders in dome 

FI - Friendly intruders in dome 

AD - Aliens destroyed 

FD - Friendly intruders destroyed 

C$,CC$,L$,LL$ - For status message printout 

L - Start locatioa intruder 

I,N - Random amounts which determine when an intruder enters the 

dome 
T - For-next loop, for above variables 
X - For message printout (flashing) 

LF - For noting if keys have been pressed in correct sequence 
XC - For message printout (flashing) 
DS - Intruders destroyed, alien or friendly 
YU - Counter, figure up at highest point 
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R - Random selection : alien or friendly 

E - Key closure by user 

S - USR call for sound output 

DX - Random variable. If less than or equal to 75 DA (days on 

commission) it will decrease by 1 
DF - For message indicating the number of days on commission 

Explanation of Program Lines 

Lines 10-520 display the general instructions. 

Line 530 has the user input his or her last name. 

Lines 540-620 create the graphics for the crossroads and the 
four large squares. 

Lines 630-690 establish the graphics for the lasers and display 
general messages. 

Lines 700-780 establish the strings for the friendly and alien 
figures. 

Lines 790-830 double the size of each figure. The variables set 
in line 830 are used for blanking out the laser after firing. 

Lines 840-900 set more variables and print messages and 
values on the video. 

Lines 910-920 determine the location the figure will start at. 

Lines 930-990 maintain the present condition until N= I. The 
program will then branch to an alert and complete alert will be 
sounded when T= 200 in line 1005. 

Line 1010 sets more variables before the figure is moved. 

Line 1020-1070 present the alert message with the appropriate 
sounds. 

Line 1080 randomly selects whether intruder is alien or 
friendly. 

Lines 1100-1110 print the figure that was selected. 

Line 1115 increases the counter YU by L 

Line 1120 tests the value of E for key closure. 

Line 1125 tests the value of LF. If LF is equal to 4, laser is 
ready to fire. 

Lines 1130-1190 move the figure up or down, depending on the 
value of MM. 

Lines 1200-1220 check the key closed with the value of LF. 
The only way the laser will fire is if all keys are pressed in the 
proper sequence. 

Lines 1230-1270 increases the value of LF with each key 
closure. If E is equal to none of the values specified (line 1230), it 
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will equal (zero), and the movement of the figure will continue at 
line 1090. 

Lines 1360-1470 cause the firing of the laser with a sound 
output. 

Line 1420 tests the value of the peek location, to see if figure 
was hit. If argument is true, the program will branch to line 1650. 

Lines 1440-1500 display a message indicating that there was an 
indirect hit to the figure and produced a sound. The laser will then 
be blanked out while the figure continues moving. The laser is then 
ready to accept another key sequence to fire. All of this will take 
place in split seconds. 

Lines 1520-1640 display a message indicating that an intruder 
has come into the dome. 

Lines 1650-1660 display a message indicating that the alien has 
been destroyed. 

Lines 1670-1890 display messages indicating how many aliens 
are in the dome, how many the user destroyed, and how many of 
those destroyed were friendly. 

Lines 1900-1975 decrease the number of days in the user's 
present commission if DX (random) is less than or equal to 75. Line 
1960 tests the values of both DA (days) and FD (friendly intruders 
destroyed). If either condition is met, the program is terminated. 

Lines 1980-2290 are used when the user's commission has 
expired. All relevant figures are displayed, and the user's perfor- 
mance is evaluated. If the user has destroyed 10 friendly intruders, 
he or she cannot come out ahead. 
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Appendix A 
Program Listings for the IBM PC 



The following listings have been created especially for use on the 
IBM PC. Note that the caps lock key must be in effect in order to use 
the games. Also note that you should enter YES or NO, rather than 
Y or N unless the prompt indicates otherwise. 
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Hold Time for the IBM PC 



'use PC clock to seed random 



1 REM program title: HOLD TIME 
3 CLEAR 350 
5 V$=RIGHT$(TIME$,2): 
number generator 

10 V=VAL(V$) 

15 RANDOMIZE V 
100 WIDTH 40:COLOR 15,9,14 
105 CLS:KEY OFF 

125 PRINT TAB(15)"H0LD TIME M :GOSUB 1050 
130 PRINT: INPUT "INSTRUCTIONS" ;Z$ 
135 IF Z$="N" OR Z$="N0" THEN CLS:G0T0 275 
140 PRINT :CLS 

145 PRINT "HOLD TIME... A MATTER OF HIGH OR" 
150 PRINT "LOW POINT TOTALS. THE COMPUTER'S" 
155 PRINT "CRAFT WILL BLIP ALL AROUND YOUR" 
160 PRINT "VIDEO. DOWN THE LEFT AND RIGHT" 
165 PRINT "SIDES WILL BE ASTERISKS. THESE" 
170 PRINT "ARE YOUR LASERS. AT THE INSTANT" 
175 PRINT "YOU THINK THE CRAFT IS IN LINE" 
180 PRINT "WITH THESE, HOLD THE SPACE BAR" 
185 PRINT "YOUR LASERS WILL START MOVING" 
190 PRINT "TOWARD THE CENTER. THE COMPUTER" 
195 PRINT "CRAFT WILL ALSO CONTINUE TO MOVE." 
200 PRINT :GOSUB 1000: INPUT "PRESS ENTER TO CONTINUE" 

,X$:CLS: PRINT 
205 PRINT "YOU CAN 'HOLD' THE COMPUTER'S" 
210 PRINT "CRAFT FROM MOVING FOR AN AMOUNT" 
215 PRINT "OF TIME, ROUGHLY 20 SECONDS." 
220 PRINT "POINTS WILL RANGE FROM 1500 TO " 
225 PRINT "400, DEPENDING ON WHERE YOU" 
230 PRINT "DESTROY THE CRAFT (TOP OR BOTTOM)" 
235 PRINT "ON THE SCREEN. TIME LIMIT FOR THE" 
240 PRINT "ENTIRE RUN WILL BE JUST ABOUT" 
245 PRINT "FIVE MINUTES. THIS WILL BE NOTED" 
250 PRINT "AT THE LOWER RIGHT OF YOUR SCREEN" 
255 PRINT "COUNT STARTS AT 30." 
260 PRINT "TO 'HOLD' THE COMPUTER'S" 
265 PRINT "CRAFT, PRESS THE <CTRL> KEY":GOSUB 1025 
270 PRINT 

275 PRINT: INPUT "PRESS ENTER TO BEGIN" ,X$:CLS 
295 DEF SEG=&H40:P0KE &H17,0:C$=:"<X>" 
300 REM outer graphics points 
305 Q$=STRING$(38,42):MR=8:MC=16:MMR=1:MMC=1 
310 G=0:PI=16:L0CATE 1,1:PRINT Q$:LOCATE 16,1: 
PRINT Q$ 
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315 LOCATE 2,34:PRINT "20";:FOR XR-2 TO 15:XC=1 
320 LOCATE XR,XC:PRINT LEFT$(Q$,1) ; :SOUND 10* 

(50-XR),l 
325 PRINT TAB(40) LEFT$(Q$, 1); :GOTO 500 
330 IF MMROl AND MMCOl THEN G0SUB 355 
333 NEXT 
335 LOCATE 1,1:PRINT STRING$(40, 32) ;: LOCATE 16,1: 

PRINT STRING$(40,32) 
340 FOR XR=2 TO 15:XC=1 
345 LOCATE XR,XC:PRINT CHR$( 32) ;: PRINT TAB(40)CHR$ 

(32);:S0UND 70-XR.3 
350 GOSUB 355:NEXT:G0SUB 355:G0T0 310 

355 LOCATE 16,35:PRINT ABS(INT(TT/60)-30); 

356 LOCATE MMR,MMC:PRINT STRING$(5,32) ; 

360 IF MR<=2 OR MR>=15 THEN MR=7 

361 COLOR 10:L0CATE MR,MC:PRINT C$; :TT=TT+1: COLOR 15 

362 IF TT>=1800 THEN 830 

365 MMR=MR:MMC=MC:DEF SEG=&H40:W=PEEK(&H17) 

366 IF W=4 AND G<=20 THEN G=G+.4:G0SUB 770:RETURN 
370 XX=INT(RND*4+1):REM craft move 

375 ON XX GOTO 380,390,400,410 

380 REM left move 

385 MC=MC-INT(RND*5+l):G0TO 420 

390 REM right move 

395 MC=MC+INT(RND#5+1):G0T0 420 

400 REM up move 

405 MR=MR-1:G0T0 420 

410 REM down move 

415 MR=MR-fl:DEF SEG=&HB800:IF PEEK(82)-32 THEN GOSUB 
700 ' location of message from lines 745-762 

416 IF PEEK(146)=32 THEN GOSUB 700 'location of 
message from line 315 

417 IF PEEK(1126)=:32 THEN GOSUB 700: 'location of 
message from line 705 

418 IF PEEK(1186)-32 THEN GOSUB 700: 'location of 

message from line 715 
420 IF MC<=3 THEN MC=40:MR=MR-1 
422 IF MR<-2 AND MC<=2 THEN 410 
425 IF MC>=35 THEN MC=1:MR=MR+1 
427 IF MR>-15 AND MC>=35 THEN 400 
430 SOUND 440, 3: RETURN 
500 REM fire 

505 IF XR<=14 THEN W$-INKEY$ 
510 PI-PI-1:IF W$=' m THEN 330 
515 IF W$=" " THEN 525 
520 GOTO 330 
525 REM laser advance 
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530 IF XR>=13 AND XC>=30 THEN 330 
532 IF XR<=2 AND XC<=40 THEN 330 

535 DEF SEG=&HB800:HR=XR:HC=XC:H1=(HR-1)*80: 
H2=H1+78:UN=UN+1: 32=1000 

536 IF RP=1 THEN LOCATE 2,20:PRINT ABS(R-UN); 
540 DEF SEG=&HB800:P0KE HI, 32: POKE H2,32: 

545 IF PEEK(Hl+2)<>32 OR PEEK(H2-2)<>32 THEN 570 

550 Hl=Hl+2:H2=H2-2:S2=S2-10:SOUND S2,3 

555 POKE HI, 42: POKE H2,42 

560 IF ABS(H2~H1)<=4 THEN 900 

565 GOSUB 355: GOTO 540 

570 REM direct hit 

575 POKE HI, 42 

580 IF PEEK(H2»2)<>32 THEN 600 

585 POKE H2,32:H2=H2-8 

590 POKE H2,42 

595 FOR 0=1 TO 2: SOUND 1000, 3: SOUND 800, 3: NEXT- 

GOTO 580 
600 REM delete 

605 Z=1:P0KE HI, 32: POKE H2,32 
610 N=(MR-1)*80+(MC-1)*2:S1=2200 
615 DEF SEG=&HB800:P0KE N, 32: POKE N+2,32 
620 POKE N+4,32 
625 J=2*INT(RND#5) 
630 IF N+J-80>=158 THEN 640 
635 GOTO 660 

640 POKE N+J-80,42:P0KE N+J+80-J,42 
645 FOR 1=1 TO J*10:NEXT 
650 POKE N+J-80,32:P0KE N+J+80-J,32 

655 GOTO 675 

660 POKE N+J+80,42:P0KE N+J+80-J,42 

665 FOR 1=1 TO J*10:NEXT 

670 POKE N+J+80,32:P0KE N+J+80~J,32 

675 IF Z<=7 THEN 685 

676 SOUND 1000,3 

680 IF RP=0 THEN GOTO 690 ELSE PI=PI+1:G0T0 695 

685 Z=Z+1: SOUND 220, 3: GOTO 625 

690 PI=PI-f-l:X$=X$+V 

695 PP=PP+PI*100:G0SUB 700: GOTO 900 

700 A$="TOTAL POINTS : ft :T$="TIME LAPSE:" 

705 FR=15:FC=3 

710 FOR 1=1 TO LEN(A$) 

715 LOCATE FR,FC+25:PRINT(MID$(T$,I, 1) ) ; 

716 LOCATE FR,FC:PRINT MID$(A$,I, 1) ; 
720 FC=FC+1:NEXT 

725 PRINT PP;:IF RP=1 THEN 735 
730 IF X$= fm THEN RETURN 
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735 REM reserve power 

740 R$="RESERVE POWER :" 

745 FR=2:FC=2 

750 FOR 1=1 TO LEN(R$) 

755 LOCATE FR,FC:PRINT MID$(R$,I , 1) ; 

760 FG=FC+1:NEXT 

762 IF RP=1 THEN X$=STR$(ABS(R-UN)) 

765 PRINT X$; 

770 TI$="H0LD TIME:":REM hold time 

775 DEF SEG=&HB800:IF PEEK(1186)<>32 THEN 790 

780 FR=2:FC=25:F0R 1=1 TO LEN(TI$) 

785 LOCATE FR,FC:PRINT MID$(TI$,1 , 1) ; :FC=FC+1:NEXT 

790 LOCATE 2,36:PRINT INT(ABS(G-20)); 

795 RETURN 

800 REM time remaining 

805 IF RP=1 THEN DK=1:G0T0 910 

810 IF TT>=1800 THEN 830 

820 GOTO 300 

830 FOR TI-1 TO 1200: NEXT 

835 CLS:R=LEN(X$) 

840 IF R=0 THEN 960 

845 PRINT "VERY WELL DONE...." 

850 PRINT "YOU HAVE ";R;" UNITS OF" 

855 PRINT "RESERVE POWER " 

860 PRINT "PRESS ENTER TO USE"; 

865 INPUT X$:TT=0:RP=1:UN=0 

870 CLS 

875 GOTO 300 

900 DEF SEG=&H40:P0KE &H17,0:REM delete reserve 

units 
905 IF RP=0 THEN 330 
910 IF UN>=R THEN 925 
915 IF DK=0 THEN 330 
920 DK=0:GOTO 810 
925 REM finish 
930 FOR TI=1 TO 1200: NEXT 
935 CLS 

940 PRINT "RESERVE POWER EXHAUSTED " 

945 PRINT "TOTAL POINTS ACCUMULATED: ";PP 

950 PRINT 

955 GOTO 980 

960 PRINT "YOU HAVE DESTROYED NOTHING" 

965 PRINT "YOU HAVE NO RESERVE POWER." 

970 PRINT 

975 GOTO 945 

980 PRINT 

985 PRINT "END OF RUN." 

990 GOSUB 102 5: END 
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1000 OUTERSPACE$= tf MN 01 LI F 02 C ML F L2 F P8 L8 A" 
1010 PLAY "MB X0UTERSPACE$;L1 G+ L2 G+ P8 L8 G+ LI A 

L2 A;" 
1020 RETURN 

1025 0UTERSPACE$="MN 01 LI F 02 C ML F L2 F P8 L8 A" 
1030 PLAY "MB X0UTERSPACE$;L1 B- L8 B- 03 D E L4 F G 

LI A L2 A;" 
1040 RETURN 

1050 BACKGR0UND$="MB MS 01 L4 F C F C F C F C" 
1060 PLAY "MB XBACKGR0UND$; n 
1070 RETURN 
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Elevator for the IBM PC 

1 REM program title: elevator 

5 V$=RIGHT$(TIME$,2): 'use PC clock to seed random 
number generator 

10 V=VAL(V$) 

15 RANDOMIZE V 

20 CLS:KEY 0FF:WIDTH 40:W$="$$#####.##" 

25 DEF SEG=&HB800 

30 DIM F(60),F$(60),G$(60),GK(60) 

50 PRINT TAB(IO)"*** ELEVATOR ***" 

60 PRINT 

70 BEEP: PRINT "INSTRUCTIONS REQUIRED (Y/N)"; 

80 INPUT I$:IF I$="N" THEN N=l 

90 BEEP: INPUT "FIRST NAME";N$ 
100 PRINT: IF N=l THEN 230 
110 BEEP: INPUT "PRESENT OCCUPATION" ; P$ 
120 PRINT "YOU HAVE JUST BEEN FIRED AS A "; 
125 PRINT P$;"!!" 

130 PRINT "BUT, YOU ARE IN LUCK!! I HAVE JUST" 
140 PRINT "HIRED YOU TO BE AN ELEVATOR ATTENDANT" 
150 PRINT "IN MY COMPUTERIZED DEPARTMENT STORE." 
160 PRINT "YOUR JOB WILL BE SIMPLE, ";N$;". ALL" 
170 PRINT "YOU HAVE TO DO IS REMEMBER WHAT IS" 
180 PRINT "CONTAINED ON EACH OF SIXTEEN FLOORS" 
190 PRINT "SO THAT YOU CAN TAKE ALL OF MY CUSTOMERS" 
200 PRINT "TO THE RIGHT LOCATION ..." 
210 PRINT 
220 PRINT 

230 REM what's on each floor? 
240 FOR 1=2 TO 19:READ F$(I):NEXT 
250 IF N=l THEN 370 ELSE GOSUB 2150:PRINT 
260 PRINT "I ALMOST FORGOT TO TELL YOU— THE" 
270 PRINT "CUSTOMERS, WHEN STEPPING ONTO THE " 
280 PRINT "ELEVATOR, WILL TELL YOU WHAT THEY ARE" 
290 PRINT "SHOPPING FOR. THEY WON'T TELL YOU " 
300 PRINT "AGAIN, BUT FOR EVERY CUSTOMER YOU PLACE" 
310 PRINT "ON THE RIGHT FLOOR, YOU'LL BE PAID " 
320 PRINT "$10.00. THAT WILL BE YOUR ONLY WAGE!" 
330 PRINT "CUSTOMERS WILL BE GETTING ON AND OFF THE" 
340 PRINT "ELEVATOR AT DIFFERENT STOPS, AND YOU " 
350 PRINT "WILL NEED TO REMEMBER THESE, TOO, " 
355 PRINT N$;"!" 
360 GOSUB 2150 

370 PRINT "HERE ARE THE FLOORS AND CONTENTS:" 
380 FOR 1=2 TO 16 
390 SOUND 50*1+100, 3: PRINT I;") ";F$(I); 
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395 IF 1=8 THEN TT=I*400: PRINT :GOSUB 2190 

400 IF I>=2 AND I<=5 THEN 440 

410 IF I>=6 AND I<=10 THEN PRINT :G0T0 470 

420 IF I>=11 AND I<=14 THEN 450 

430 IF I>=15 AND I<=16 THEN 460 

440 PRINT " ";F$(17):G0T0 470 

450 PRINT " ";F$(18):G0T0 470 

460 PRINT " ";F$(19) 

470 IF RX=1 THEN RETURN ELSE NEXT 

475 REM variable rx for print elements 

480 FOR 1=1 TO 6: PRINT: NEXT :TT=TT+2800 

490 GOSUB 2190:CLS:C=0:GK=0 

500 SOUND 440, 3: PRINT "YOU SHOULD BE ALL SET, ";N$ 

510 TT=TT~1800:G0SUB 2190:RX=1 

520 REM get customers 

530 C=INT(RND*10+1) 

540 PRINT N$; M YOU NOW HAVE" ;C; "CUSTOMER (S)" 

550 PRINT "GETTING ONTO MY ELEVATOR. ": FOR K0=1 TO 

C: SOUND K0*100,2:NEXT 
560 REM get c responses 
570 1=1 

580 REM floor number 
590 F=INT(RND»14+2) 
600 F(I)=F:I=I+1:GK(F)=GK(F)+1 
610 IF I<=C THEN 590 
620 REM floor titles 
630 FOR 1=1 TO C 
640 G$(I)=F$(F(I)) 
650 NEXT 

660 GOSUB 2190:PRINT 

670 PRINT "THE CUSTOMERS 1 DESTINATIONS :":FL=1 
680 PRINT: FOR I=FL TO C 
690 PRINT G$(I); ,m ; 
700 F=F(I) 

710 IF F>=2 AND F<=5 THEN 760 
720 IF F>=11 AND F<=14 THEN 770 
730 IF F>=15 AND F<=16 THEN 780 
740 PRINT " FLOOR" 
750 NEXT: GOTO 790 
760 GOSUB 440: GOTO 750 
770 GOSUB 450: GOTO 750 
780 GOSUB 460: GOTO 750 
790 GOSUB 2150 
800 CLS 

810 SOUND 100,1: PRINT "PRESS <U> FOR <UP>" 
820 SOUND 200,1: PRINT "PRESS <D> FOR <D0WN>" 
830 PRINT "THEN ENTER THE FLOOR NUMBER" 

332 



840 NN=0:REM direction 

850 GOSUB 2160 

860 D$=A$:IF D$="U" THEN D$="UP":G0T0 870 

865 IF D$="D" THEN D$="D0WN" 

868 GOTO 870 

870 SOUND 100,1: PRINT "DIRECTION: ";D$ 

880 SOUND 200,1:PRINT M FLOOR NUMBER 1 '; 

890 INPUT FR: SOUND 100+25*FR,3 

895 IF FR=1 AND TF=0 THEN 1280 

900 IF FR<1 OR FR>16 THEN 800 

905 IF FR-TF THEN 1280 

910 IF FR<TF AND D$= !t UP" THEN 1260 

915 IF FR>TF AND D$="DOWN" THEN V=1:G0T0 1260 

920 GOSUB 2190:CLS:REM pause before start 

930 IF D$-"UP" THEN 970 

940 IF D$="D0WN" THEN 1040 

950 BEEP: PRINT "SELECT A DIRECTION, ";N$; !, !! fl 

960 PRINT:GOTO 810 

970 REM up 

980 IF TF>=17 THEN 1030 

990 GOTO 1300 
1000 SOUND 200, 3: SOUND 100, 4: PRINT "YOU ARE ON THE 

";T$; t! FLOOR, ";N$ 
1010 PRINT "YOU CAN NOT GO ANY ";H$;"!!" 
1020 GOTO 960 

1030 T$="TOP":H$="HIGHER":GOTO 1000 
1040 IF TF<=1 THEN 1060 
1050 GOTO 1070 

1060 T$="BOTTOM":H$="LOWER":GOTO 1000 
1070 REM down continued movement 
1080 FS=P+640:NN=1 
1085 IF FF>=58 AND FF<=64 THEN 1220 
1090 POKE P,FF: SOUND 100*FF-4500,1 
1100 FOR T=l TO 40: NEXT 
1110 POKE P, 32: POKE P+2,32:P=P+80 
1120 IF POFS THEN 1085 
1130 REM continue if not on floor 
1140 IF TFOFR THEN 1160 
1150 GOTO 1500 
1160 FS=FS+560 
1170 IF P>=1244 THEN 1190 
1180 GOTO 1085 

1190 POKE P, 32: POKE P+2,32:P=280 
1200 FS=P+640:FF=FF-1:TF=TF-1 
1210 GOTO 1085 
1220 REM floors above 9 
1230 POKE P, 49: POKE P+2,FF-10: SOUND 100*FF-4500,1 
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1240 IF NN=1 THEN 1100 

1250 GOTO 1340 

1260 PRINT M IF WANTING TO GO ,! ;D$; f \ USE A M 

1265 IF V=l THEN V=0: PRINT "USE A LOWER NUMBER." 

:GOTO 1275 
1270 PRINT "HIGHER NUMBER THAN THIS FLOOR." 
1275 GOTO 1290 

1280 PRINT "YOU ARE ON THAT FLOOR, ";N$;"M" 
1290 GOSUB 2 190: GOTO 800 
1300 REM up movement 
1310 IF TF=0 THEN 1460 
1320 FS=P~640:IF FS<=278 THEN FS-280 
1325 IF FF>=58 AND FF<=64 THEN 1220 
1330 POKE P,FF: SOUND 100*FF-4500,1 
1340 FOR T=l TO 50: NEXT 
1350 POKE P, 32: POKE P-f2,32:P=P-80 
1360 IF POFS THEN 1325 
1370 REM continue if not on floor 
1380 IF TFOFR THEN 1400 
1390 GOTO 1500 
1400 FS=FS-560 
1410 IF P<=278 THEN 1430 
1420 GOTO 1325 

1430 POKE P f 32: POKE P+2,32:P-1240 
1440 FS=P-640:FF=FF+1:TF=TF+1 
1450 GOTO 1325 
1460 TF=1:P=920:FF=49 
1470 FS=P-560:G0T0 1325 
1500 REM on floor requested 
1510 IF FF>=58 AND FF<=64 THEN 1530 
1520 POKE P,FF:G0T0 1540 
1530 POKE P, 49: POKE P+2,FF™10 
1540 FOR 1=1 TO C 
1550 IF FR=F(I) THEN 1570 
1560 NEXT: IF GK(FR)>=1 THEN XX-1:PA=PA+10*GK(FR): 

KG=KG+GK(FR):GK(FR)=0 
1565 GOTO 1600 

1570 PA=PA+10:KG=KG+1:GK(FR)=GK(FR)-1 
1580 F(I)=0:XX=1 
1590 GOTO 1560 

1600 REM did customers want off here 
1610 IF XX-0 THEN 1630 
1620 XX=0:G0T0 1770 
1630 PRINT N$;", NO CUSTOMERS WANTED TO GET OFF": 

SOUND 200, 3: SOUND 100,4 
1640 PRINT "ON THIS FLOOR. . .":NC=NC+1 
1645 HJ=HJ+1:IF HJ>=4 THEN HJ=0:FZ=1 
1650 REM more customers stepping on 
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1655 AA=INT(RND*2+1):IF JV=1 THEN AA=1:FZ=0 

1660 IF FZ=1 OR FR=1 THEN AA=1:FZ=0 

1670 IF AA=1 THEN 1690 

1680 GOTO 1730 

1690 YU=INT(RND*5+1) :YY=C:C=C+YU:C2=YU 

1700 IF C>=59 THEN JV=1:C=C-C2:G0T0 1730 

1710 REM get destinations 

1720 GOTO 1800 

1730 REM continue if not finished 

1740 KG-0:IF GK>=C THEN 1940 

1750 GOSUB 2190 

1760 GOTO 800 

1770 FOR KO=l TO KG:SOUND KO* 100, 2: NEXT: PRINT KG; 

"OF THE CUSTOMERS JUST" 
1780 PRINT "STEPPED OFF MY ELEVATOR, "; 
1785 PRINT N$; M .": GOSUB 2700 
1790 GK=GK+KG:GOTO 1650 
1800 REM yy more destinations 
1810 YU=ABS(C~YY):IF GK>C OR GK>=10 THEN 1940 
1820 PRINT N$; ! \ YOU JUST HAD" ;YU; "MORE" 
1830 PRINT "CUSTOMERS STEP ONTO THE" 
1840 PRINT "ELEVATOR. THE DESTINATIONS ) :" 
1850 KG=0: PRINT: FOR I=YY+1 TO C 
1860 F»INT(RND*(16)+1) 
1865 IF F=TF THEN 1860 
1870 IF F=l THEN F$(1)="GR0UND":FZ=1 
1880 F(I)=F: NEXT: REM floors 
1890 REM title of floors 
1900 FOR I-YY+1 TO C 
1910 G$(I)=F$(F(I)):NEXT 
1920 FL=YY+1 
1930 GOTO 680 
1940 REM stop/cont 

1950 PRINT:PRINT "YOU HAVE NOW COLLECTED:" 
1960 PRINT USING W$; PA: PRINT: GOSUB 2190 
1965 PRINT:G0SUB 2500 
1970 IF JV-1 OR GK>=C THEN 1990 
1980 GOSUB 2190:G0T0 800:REM all not off 
1990 PRINT: GOTO 2300 
2000 REM data for floors 
2010 DATA WOMENS, MENS, CHILDRENS, INFANTS 
2020 DATA TOYS , CARPETS , COMPUTERS 
2030 DATA APPLIANCES , FURNITURE , HARDWARE 
2040 DATA HOBBY, AUTO, OFFICE 
2050 DATA BATHROOM , BEDROOM 
2060 DATA CLOTHES , SUPPLIES , ITEMS 
2070 REM data element 17 will be used 
2080 REM with elements 2-5 
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2090 REM data element 18 will be used 

2100 REM with elements 11-14 

2110 REM data element 19 will be used 

2120 REM with elements 15 & 16 

2150 PRINT:PRINT "PRESS A KEY ... " : SOUND 440,3 

2160 A$=INKEY$ 

2170 IF A$=" M THEN 2160 

2180 RETURN 

2190 REM time loop 

2200 FOR T=l TO TT:NEXT 

2210 GOTO 2180 

2300 REM continue? 

2310 PRINT "WOULD YOU LIKE TO TAKE ON" 

2320 PRINT "SOME MORE CUSTOMERS, ";N$;"?" 

2330 PRINT "YOUR TOTAL EARNINGS:"; 

2340 PRINT USING W$;PA; 

2350 INPUT A$ 

2360 IF A$<>"Y" AND A$<>"YES" THEN 2400 

2370 TT=2000:JV-0: PRINT 

2380 PRINT "YOU ARE ON FLOOR ";TF 

2390 NC=0:GOTO 490 

2400 PRINT 

2410 PRINT "END OF ELEVATOR" 

2420 END 

2500 REM point scale/pay deduction 

2510 IF NC<=0 THEN NC=0:RETURN 

2520 PRINT "YOU MADE" ;NC; "STOPS THAT WERE" 

2530 PRINT "NOT NECESSARY, ";N$;'\ YOU" 

2540 PRINT "WILL TAKE A DEDUCTION IN PAY" 

2550 PRINT "OF $20.00 FOR EACH ONE OF" 

2560 PRINT "THOSE STOPS, TOTAL"; 

2570 NN=NC*20: PRINT USING W$;NN 

2580 PRINT "LEAVING YOU"; 

2590 PA=PA-NN 

2600 PRINT USING W$;PA:GOSUB 2190 

2610 RETURN 

2700 REM any tips? 

2710 IF KG<-1 THEN RETURN 

2720 AA=INT(RND*2+1) 

2730 IF AA=1 THEN RETURN 

2740 TI=INT(RND»10Qfl) 

2750 PA=PA+TI 

2760 PRINT 

2770 PRINT "YOU 1 RE IN LUCK ";N$;", A" 

2780 PRINT "NICE CUSTOMER JUST GAVE " 

2790 PRINT "YOU A TIP OF"; 

2800 PRINT USING W$;TI 

2810 GOSUB 2190:RETURN 
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Farewell for the IBM PC 

1 REM program title: FAREWELL 

5 V$=RIGHT$(TIME$,2): 'use PC clock to seed random 
number generator 

10 V=VAL(V$) 

15 RANDOMIZE V 

20 WIDTH 40:KEY 0FF:C0L0R 1 , 14, 11 :CLS: PRINT TAB(12) 
"*** FAREWELL ***": GOSUB 1350 

25 PRINT 

30 INPUT "NUMBER PLAYING (1-10)"; A 

35 IF A<1 OR A>10 THEN 25 

40 PRINT "THE ";A;" PLAYERS * FIRST NAMES": PLAY "01 A" 

45 FOR 1=1 TO A 

50 INPUT Q$(I):S0UND 50+20*1, 3: NEXT 

55 PRINT :U=1 

60 PRINT "ANY OF YOU NEED TO SEE" 

65 INPUT "THE INSTRUCTIONS" ;X$ 

70 IF X$<>"Y" AND X$<>"YES" THEN 210 

75 PRINT 

80 PRINT "READ CAREFULLY, IT COULD MEAN" 

85 PRINT "YOUR LIFE (OR THE GAME!!)..." 

90 PRINT "EACH PLAYER WILL SEE AND STUDY A" 

95 PRINT "MATRIX OF 6 BY 5 SQUARES (POSITIONS)" 
100 PRINT "THESE WILL RANGE FROM THE " 
105 PRINT "LETTERS A THROUGH Z WITH" 
110 PRINT "FOUR SPACES BLANK. TO PLAY:" 
115 PRINT "THE COMPUTER WILL SELECT FIVE" 
120 PRINT "POSITIONS AND PLACE COBRAS" 
125 PRINT "WITHIN EACH. THE COMPUTER WILL" 
130 PRINT "SHOW YOU WHERE THREE OF THE COBRAS ARE" 
135 GOSUB 1340: PRINT: INPUT "PRESS ENTER, PLEASE: ";X$ 
140 CLS 

145 PRINT "NOW THE COMPUTER WILL SELECT A" 
150 PRINT "POSITION AND FLASH AN ASTERISK" 
155 PRINT "THERE. EACH PLAYER MUST ENTER FROM" 
160 PRINT "MEMORY THE NUMBER WHICH WAS IN THAT" 
165 PRINT "POSITION. IF CORRECT, THE PLAYER" 
170 PRINT "GAINS 1000 POINTS; IF INCORRECT, THE" 
175 PRINT "PLAYER LOSES 1000 POINTS. AND... IF YOU" 
180 PRINT "SELECT A POSITION WHERE THERE'S A " 
185 PRINT "COBRA... YOU 'RE OUT OF THE GAME, DEAD!!" 
190 PRINT "SELECTION WILL CONTINUE FOR AS LONG AS" 
195 PRINT "EACH PLAYER WANTS OR UNTIL TWENTY -ONE" 
205 PRINT "POSITIONS HAVE BEEN ELIMINATED." 
210 GOSUB 1350: GOSUB 220: INPUT "PRESS ENTER TO 
START" ;X$ 



337 



215 CLS:GOTO 300 

220 DIM L$(31),PR(31),PC(31),L(31) 

225 REM letters? 

228 IF SLO0 THEN PRINT "ARRANGING LETTERS... 

230 L=65:I=1:PZ=1000 

235 L$(I)=CHR$(L):L(I)=I 

240 IF 1=27 THEN 255 

245 1=1+1 :L=L+1:G0T0 235 

250 GOTO 235 

255 REM sort letters randomly 

260 J=l 

265 N«INT(RND*(I-1)+1) 

270 IF L(N)=0 THEN 265 

275 L$(J)=CHR$(N+64) 

280 L(N)=0:J=J+1 

285 IF J=I THEN RETURN 

290 GOTO 265 

300 REM positions 

305 PC=5:PR=5:I=1:PL=PR+2:J=1:PK=PC 

310 PR(I)=PR:PC(I)=PC:L(I)=I 

315 PC=PC+6: 1=1+1 :J=J+1 

320 IF 1=27 THEN 345 

325 IF J=7 THEN 335 

330 GOTO 310 

335 PR=PL:PL=PL+2:J=1:PC=PK 

340 GOTO 310 

345 REM the remaining four 

350 L$(I)= M ":PR(I)=PR:PC(I)=PC:L(I)=I 

355 PC=PC+6: 1=1+1 :J=J+1 

360 IF J=7 THEN 370 

365 GOTO 350 

370 REM move the four blanks 

375 I=1:J=1:L=27 

380 N«INT(RND*26+1) 

385 IF L(N)=0 THEN 380 

390 F$=L$(N):L$(N)=L$(L) 

395 L$(L)=F$:L(N)=0 

400 L=L+1:IF L=31 THEN 410 

405 GOTO 380 

410 REM now print letters 

415 CLS:F0R 1=1 TO 30 

420 LOCATE PR(I) ,PC(I):PRINT L$(I):S0UND 10* 

(ASC(L$(I))),1:NEXT 
425 REM final graphics 
430 X=2 

435 FOR Y=5 TO 13 
440 LOCATE Y,X:PRINT CHR$(222) :NEXT 
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445 X=X+6 

450 IF X>=40 THEN 460 

455 GOTO 435 

460 FOR 1=2 TO 38 

465 LOCATE Y ,X: PRINT CHR$( 223) : NEXT 

470 Y=Y-2 

480 IF Y<=3 THEN 490 

485 GOTO 460 

490 REM cobra positions/player 

495 CM: LOCATE 15,5:PRINT "PLAYER: ";Q$(U); 

500 N«INT(RND*(I-5)+l) 

505 IF L(N)=0 OR L(N)=100 THEN 500 

510 CBR(C)=PR(N):CBC(C)=PC(N):F$=L$(N):C$(C)-F$ 

515 L$(N)=CHR$(42):L(N)=100 

520 IF C=5 THEN 560 ELSE IF C<=3 THEN GOSUB 530 

525 C=C+l:GOTO 500 

530 XX=0 ! define 3 (1 for computer) 

535 LOCATE PR(N) ,PC(N) :PRINT L$(N);:F0R T=l TO 

100: NEXT 
540 LOCATE PR(N) ,PC(N) :PRINT " ";:FOR T=l TO 50:NEXT 
545 LOCATE PR(N) ,PC(N) :PRINT F$; 
550 IF XX<=0 THEN XX=XX+ 1 : GOTO 535 
555 RETURN 

560 REM computer select/if not done 
565 SIM 

575 IF SL>=22 THEN 1000 ELSE GOSUB 1200 
585 LOCATE 16, 5: PRINT "I WILL SELECT A POSITION" 

: SOUND 220,1 
590 NMNT(RND*(L-1)+1):G0SUB 1240 
595 IF L(N)=0 OR L(N)=100 THEN 590 
600 F$-L$(N):IF SIM THEN GOSUB 530 
605 C$=F$:NU=N: GOSUB 1300:G0SUB 1200 
610 LOCATE 16,5:PRINT "SELECT A POSITION BY LETTER 

ONLY,";: SOUND 220,1 
615 LOCATE 17,5:PRINT Q$(U); 
620 INPUT L$ 
625 1=1 

635 IF L$=L$(I) THEN 665 
645 1=1+1 

655 IF I>=31 THEN 675 
660 GOTO 635 
665 NM:F$=L$: GOSUB 530 
670 GOTO 800 

675 REM cobra position or blank 
680 GOSUB 1200 
685 GOSUB 1200 
690 FOR 1=1 TO 5 
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695 IF L$=C$(I) THEN 735 

705 NEXT 

715 LOCATE 16,5:PRINT "YOU CANNOT SELECT A BLANK' I" 
: SOUND 220,1 

725 GOSUB 1240:GOSUB 1200:GOTO 610 

735 GOSUB 1340: REM cobra 

745 LOCATE 16,5:PRINT "YOU'RE DEAD, ";Q$(U);'» !!!" 

755 LOCATE 17, 5: PRINT "THAT IS A COBRA POSITION !!!" 

765 LOCATE 18, 5: PRINT "** FAREWELL **": GOSUB 1240 

770 ZZ=1:G0SUB 1200:G0T0 1020 

800 GOSUB 1240:G0SUB 1200:IF L$OC$ THEN 900 

805 GOSUB 1350: LOCATE 16, 5: PRINT "CONGRATULATIONS " 
;Q$(U);"..." 

810 LOCATE 17,5:PRINT "YOU'VE JUST GAINED ";PZ; 

815 PRINT "POINTS!!" 

820 REM points/continue 

825 W(U)=W(U)+PZ 

830 LOCATE PR(NU) ,PC(NU) :PRINT " "; 

835 LOCATE 19,25:PRINT "TOTAL POINTS: ";W(U); 

840 GOSUB 1240: GOSUB 1200 

845 LOCATE 16,5:PRINT "YOU NOW HAVE ";W(U); 
"POINTS ..." 

850 LOCATE 17,5:PRINT "...CONTINUE (Y/N)"; 

855 INPUT X$:IF X$="N" THEN 1020 

860 SL=SL+1:L(NU)=0:L$(NU)=" " 

865 GOTO 575 

900 REM wrong position 

905 LOCATE 16, 5: PRINT "WRONG POSITION, "; Q$ (U) : SOUND 
220,1: SOUND 100,1 

910 LOCATE 17,5:PRINT "YOU ARE NOW MINUS";PZ; 

915 PRINT "POINTS...": GOSUB 1240 

920 GOSUB 1200:W(U)=W(U)-PZ 

925 LOCATE 19,25:PRINT "TOTAL POINTS: ";W(U); 

930 GOTO 610 
1000 REM final/another player 
1005 GOSUB 1240: GOSUB 1200 
1010 GOSUB 1350: LOCATE 16,5:PRINT "THAT'S IT, " 

;Q$(U);". YOU'VE" 
1015 LOCATE 17,5:PRINT "REACHED THE LIMIT..." 
1020 LOCATE 18,5:PRINT "PRESS ENTER, PLEASE:"; 
1025 INPUT X$:CLS 
1030 IF ZZ=1 THEN ZZ=0:GOTO 1040 
1035 T(U)=W(U) 
1040 U=U+1:IF U>A THEN 1100 
1045 PRINT Q$(U);", YOU ARE NEXT..." 
1050 PRINT "PRESS ENTER WHEN READY:"; 
1055 INPUT X$:CLS 
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1060 GOSUB 225: GOTO 300 

1100 REM final/score results 

1105 PRINT "PLAYERS AND POINTS:" 

1110 FOR 1=1 TO A 

1115 PRINT Q$(I);": TOTAL POINTS, M ;T(I) 

1120 NEXT 

1125 PRINT 

1130 PRINT "PROGRAM TERMINATED..." 

1135 END 

1200 REM clear print area 

1210 LOCATE 16,5:PRINT STRING$(34,32) 

1220 LOCATE 17,5:PRINT STRING$(34,32) 

1230 RETURN 

1240 REM time delay 

1250 FOR TI=1 TO 2000: NEXT 

1260 RETURN 

1300 REM flash selection course 

1305 FOR 1=1 TO NU 

1310 IF L$(I)="*" OR L$(I)=" " THEN 1330 

1315 LOCATE PR(I) ,PC(I) : PRINT "*";: SOUND 1000,1 

1320 FOR TI=1 TO 20: NEXT TI 

1325 LOCATE PR(I) ,PC(I) : PRINT L$(I);:SOUND 1500,1 

1330 NEXT I 

1335 RETURN 

1340 PLAY "MB 03L8CDL4E-DL8CP8CDE-GDE-C 

1345 RETURN 

1350 PLAY "MB MLL801AB~02D-DD-01B~02L2D~" 

1355 RETURN 
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Mind Invasion for the IBM PC 

10 REM Program Title: Mind Invasion— IBM PC 

20 REM Instruction Routine 

25 WIDTH 40 

30 CLEAR 500:C0L0R 2,0, 14:FL-1:G0SUB 1500: J=l :TR=1 

40 REM outer graphics 

50 DEF SEG=&HB800:X=1280:Y==1358:K=219:PN==1:TX=Y~~600: 
TL-TX 

60 POKE X,K:P0KE Y,K:P0KE X+10,K:P0KE Y-10,K 

70 X»(X-80+2):Y=(Y-80)-2:J= s J+l 

80 IF J<>8 THEN 60 

90 REM goto character print if done 
100 IF J«16 THEN N=42:P0KE TX+1,4:P0KE TX,2:G0T0 140 
110 POKE X,K:P0KE Y,K:P0KE X+10,K:P0KE Y-10.K 
115 IF PN=1 THEN A(1)=X:A(2)=Y:L=A(1):R=A(2) 
120 X=(X-80)-2:Y-(Y~80)-f2 
130 J=J+1:PN=2:G0T0 100 
140 LOCATE 23, 17: PRINT "YOUR POINTS-"; 
150 PL=0 
160 GOSUB 910 

170 LOCATE 22,1:PRINT "PLAYER — ";N$(PZ) 
200 REM character graphics variables 
210 J=7:E=8:ET=1:F=8:FT=33:T=1:E2=E:ET2=ET:F2=F:FT2 

=FT:TC=1:TCT=1:BC=15:BCT=20 
220 KY=1:G=20:G0SUB 380:IF TI>=3 THEN 880 
230 LOCATE E,ET:PRINT W$;:L0CATE F,FT:PRINT W$;:E1 

=E+1 : ET1=ET : F1=F+1 : FT1=33 
240 T=T+1: GOSUB 350 

250 LOCATE E,ET:PRINT L$;:L0CATE F,FT:PRINT L$; 
260 IF T>2 THEN J=J-1: GOSUB 380:G0SUB 350 
270 COLOR 14:L0CATE (E-l) ,ET:PRINT W$:L0CATE E1,ET1: 

PRINT W$: COLOR 2 
280 L0CATE(F~-1),(FT~1):PRINT W$:L0CATE F1,FT1: 

PRINT W$ 
290 LOCATE (E-l) ,ET: PRINT L$;:L0CATE E1,ET1:PRINT L$; 
300 LOCATE (F-1),(FT-1):PRINT L$; : LOCATE Fl ,FT1: PRINT 
L$;:G0T0 600 

310 E=E-l:F=F-l:FT=:FT-l:El=:E2+2:Fl=F2+2:FTl=FT2+2 

320 E2=E2+1:F2-F2+1:FT2=FT2+1:T=T+1 

330 REM reset variables if done 

335 GOTO 700 

340 IF T>8 THEN 200 ELSE KY=KY+1:G0T0 260 

350 REM for characters clear 

360 L$=STRING$ ( J , 255 ) : Q$=STRING$ ( G , 42 ) 

370 Q1$-STRING$(G, 32): RETURN 

380 W$=STRING$(J,N) 
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390 RETURN 

400 X$=INKEY$ 'user movement 

405 TI=TI+1 f limit count without movement 

410 IF LEN(X$)-0 THEN 340 

420 TI-1 'placement/limit/reset 

425 IF LEN(X$)=2 THEN Y$=MID$(X$,2, 1) 

430 IF ASC(Y$)=:72 THEN 460 

440 IF ASC(Y$)=80 THEN 490 

450 GOTO 340 

460 POKE TX,32:TX=TX-80 

470 IF ABS(TX-TL)>160 THEN TX=TX+80 

480 POKE (TX+l),4:POKE TX,2:S0UND 880,1:U(KY)=ASC 

(Y$):G0T0 340 
490 POKE TX,32:P0KE TX+l,2:TX=TX+80 
500 IF ABS(TX~TL)>160 THEN TX=TX~80 
510 POKE (TX+1),4:P0KE TX,2:S0UND 880,1:U(KY)=ASC 

(Y$):G0T0 340 
600 REM top/bottom characters 
610 COLOR 14:L0CATE TC.TCT: PRINT Q$; 
620 LOCATE BC,BCT: PRINT Q$;: COLOR 2: FOR X=2000 TO 

1900 STEP -50: SOUND X,1:NEXT 
630 LOCATE TC.TCT: PRINT Ql$; 
640 LOCATE BC,BCT: PRINT Ql$; 
650 TX>TC+1 : TCT-TCT+1 : BC=BC™1 : BCT=BCT-1 
660 REM replace user character 
670 IF PEEK(TX)=32 THEN POKE TX+1 ( 4:P0KE TX,2:S0UND 

300,1 
680 GOTO 310 
700 REM crusher movement 
705 POKE A(1)+10,32:P0KE A(2)-10,32 
710 POKE L, 32: POKE R,32 
720 IF ABS(L-R)=2 THEN 750 
730 L=L+8:R=R~8 

740 POKE L,K:P0KE (L+10) ,K:G0T0 400 
750 L=A(1):R=A(2):G0T0 800 

760 POKE L,K:P0KE (L+10) ,K:PLAY !, MB XMIND$; ,! 
770 POKE R,K:P0KE (R-10),K 
780 REM recycle 
790 GOTO 400 
800 REM crushed? 
810 IF PEEK(TX)=32 THEN 840 
820 IF TI<=2 AND U(KY)OU(KY-l) THEN PI=PI+ABS 

(TX-TL):GOSUB 910 
830 GOTO 760 
840 REM yes. . .crushed 
850 LOCATE 17,1:PRINT f! «CRUSHED»"; 
855 PLAY "MB 04L32BGBGBGBGBGBGBGBG t! 
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860 POKE TX,32 

870 FOR LX=1 TO 2000: NEXT: GOTO 950 

880 REM limit reached/no movement 

890 TI=0 

900 PI=PI~ABS(TL-TX): GOSUB 910:G0T0 920 

910 LOCATE 23, 31: PRINT PI;: RETURN 

920 GOTO 230 

950 REM player advance/end 

960 TP(PZ)=PI:PI=Q:PZ=PZ+1 

970 IF PZ>PL THEN GOSUB 1200:TR=TR+1:PZ=1 

980 IF TR>=3 THEN GOSUB 1240:G0T0 1010 

990 FOR LX=1 TO 14: PRINT: NEXT 
1000 GOSUB 2100:CLS:J=1:GOTO 40 
1010 REM end/high point winner 
1020 T=Q:H=1:IF H=PL THEN 1120 
1030 IF FT(H)>=FT(H+1) THEN 1080 
1040 FT=FT(H):FT(H)=FT(H-fl) 
1050 FT(H+1)=FT:N$=N$(H):N$(H)=N$(H+1) 
1060 N$(H-fl)=N$ 
1070 T=l 
1080 H=H+1 

1090 IF H<PL THEN 1030 
1100 IF T=l THEN 1020:REM not refined 
1110 GOTO 1300 
1120 CLS 
1130 PRINT 
1140 PRINT "YOUR TOTAL POINTS, AFTER 2 ROUNDS- 

TP(H)+WE(H) 
1160 GOTO 1390 

1190 REM tally first round points 
1200 REM tally first round points 
1210 IF TR>=2 THEN RETURN 
1220 FOR 1=1 TO PL 
1230 WE(I)=TP(I):NEXT:RETURN 
1240 REM final tally 
1250 FOR 1=1 TO PL 
1260 FT(I)=WE(I)+TP(I) 
1270 NEXT 
1280 RETURN 

1300 REM top winner (more than 1 player) 
1310 CLS 
1320 1=1 

1330 PRINT M THE TOP WINNER: ";N$(I);" WITH "; 
1340 PRINT FT(I); M POINTS." 
1350 PRINT "FOLLOWED BY:" 
1360 FOR 1=2 TO PLrPRINT N$(I);" WITH "; 
1370 PRINT FT( I); "POINTS." 
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1380 NEXT 

1390 PRINT 

1400 PRINT "END OF PROGRAM RUN." 

1410 END 

1500 REM instructions 

1510 I$=" MIND INVASION " 

1520 1=10 :CLS 

1530 FOR LX-1 TO LEN(I$) 

1540 PRINT TAB(I) MID$(I$,LX,1) ; :SOUND 300,1 

1550 FOR Y-l TO 50:NEXT Y 

1560 1=1+1: NEXT LX 

1570 FOR Y=l TO 1000: NEXT 

1580 PRINT 

1590 INPUT "NUMBER OF PLAYERS (1-10)";PL:S0UND 200,2 

1600 IF PL<=0 OR PL>=11 THEN 1590 

1610 PRINT "PLAY OUTLINE NECESSARY?"; 

1620 INPUT X$ 

1630 IF X$="N" OR X$="N0" THEN 2040 

1640 PRINT 

1650 PRINT "EACH OF YOU ";PL;" PLAYERS WILL 

1660 PRINT "EXPERIENCE A NEW FORM OF MIND" 

1670 PRINT "INVASION. THE OBJECT OF THE GAME:" 

1680 PRINT "KEEP PLAYING AS LONG AS POSSIBLE" 

1690 PRINT "WITHOUT GETTING "CRUSHED'." 

1700 PRINT "YOU, THE USER, WILL BE LOCATED AT" 

1710 PRINT "THE CENTER OF THE VIDEO DISPLAY" 

1720 PRINT "LOOKING LIKE THIS:"; : COLOR 4:PRINT 

CHR$(2);:C0L0R 2:PRINT " YOUR" 
1730 PRINT "ONLY MOVEMENTS WILL BE STRAIGHT" 
1740 PRINT "UP OR STRAIGHT DOWN, INDICATED" 
1750 PRINT "BY THE <UP ARROW> AND <DOWN" 
1760 PRINT "ARROW> KEYS." 
1770 PRINT:GOSUB 2170 
1780 PRINT "STRIKE A KEY TO CONTINUE" 
1790 X$=INKEY$:IF X$=""THEN 1790 
1800 PRINT 

1810 PRINT "TO TAKE ADVANTAGE OF ANY POINTS" 
1820 PRINT "YOU MUST BE CONSTANTLY MOVING," 
1830 PRINT "UP OR DOWN. THE OUTER BOUNDARIES" 
1840 PRINT "OF THE VIDEO WILL CONTAIN" 
1850 PRINT "FLASHING ASTERISKS, FOR CONFUSION." 
1860 PRINT "ALSO CONTAINED IN THOSE BOUNDARIES" 
1870 PRINT "ARE BLOCKS, TWO OF WHICH," 
1880 PRINT "WITHOUT NOTICE, WILL MOVE VERY" 
1890 PRINT "QUICKLY TOWARD YOUR LOCATION." 
1900 PRINT "IF YOU ARE SUCCESSFUL IN" 
1910 PRINT "MOVING OUT OF THE WAY, YOU" 
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1920 PRINT "CAN CONTINUE PLAYING. IF, ON" 

1925 GOSUB 2170:FOR LX=1 TO 5000:NEXT 

1930 PRINT "THE OTHER HAND, YOU ARE CRUSHED" 

1940 PRINT "PLAY WILL ADVANCE TO THE NEXT" 

1950 PRINT "PLAYER. THIS IS ALSO TRUE IF" 

1960 PRINT "YOU COLLIDE WITH THE BLOCKS." 

1970 FOR LX=1 TO 2000: NEXT 

1980 GOSUB 2170:PRINT "STRIKE A KEY TO CONTINUE" 

1985 X$=INKEY$:IF X$="" THEN 1985 ELSE PRINT 

1990 PRINT "THE GAME WILL TERMINATE WHEN EACH" 

2000 PRINT "PLAYER HAS PLAYED A TOTAL OF TWO" 

2010 PRINT "ROUNDS. THE PLAYER FINISHING WITH" 

2020 PRINT "THE HIGHEST POINTS WILL BE THE" 

2030 PRINT "WINNER." 

2040 PRINT 

2050 PRINT "NOW ENTER THE FIRST NAMES OF" 

2060 PRINT "THE ";PL;" PLAYERS:" 

2070 FOR 1=1 TO PL:PRINT "PLAYER #";I;:INPUT N$(I): 

SOUND 300,1 
2080 NEXT 
2090 PZ=1 

2100 PRINT N$(PZ);" WILL NOW PLAY. STRIKE" 
2105 IF PZ>=2 OR TR>-2 THEN 2150 
2110 PRINT "A KEY WHEN READY:" 
2120 X$=INKEY$:IF X$=""THEN 2120 
2130 CLS 
2140 RETURN 

2150 PRINT "THE ENTER KEY WHEN READY"; 
2160 INPUT X$:TI-0: RETURN 

2170 MIND$="MN01CFC+F+DGIHG+ II :IF FL=1 THEN GOTO 2200 
2180 PLAY "T60 XMIND$;T120 XMIND$;":FL=1 
2190 RETURN 
2200 PLAY "T240 L4XMIND$;L8 XMIND$;XMIND$;XMIND$; 

XMIND$;" 
2210 RETURN 
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Knights for the IBM PC 

1 CLEAR 700 
5 CLEAR 700 

10 REM program title KNIGHTS 
15 V$=RIGHT$(TIME$,2): 'use PC clock to seed random 

number generator 
20 V=VAL(V$) 
25 RANDOMIZE V 

30 H0RN$="MB T100 02 L16E- L4B- L16E- L4B~" 
35 KEY OFF: WIDTH 80: COLOR 1,11,14:CLS 
40 PRINT TAB(30) M »»KNIGHTS«« M :PLAY "XH0RN$;" 
45 PRINT 

50 PRINT "INSTRUCTIONS NEEDED"; 
55 INPUT T$ 

60 IF T$="N" OR T$="N0" THEN 205 
65 PRINT "THERE ARE TEN KNIGHTS IN A CASTLE. 

THESE ARE KNIGHTS WHO HAVE DONE WRONG" 
70 PRINT 
75 PRINT "AND WERE IN A DUNGEON WAITING TO HAVE 

THEIR HEADS REMOVED." 
80 PRINT 
85 PRINT "THEY HAVE ESCAPED THE DUNGEON AND CAPTURED 

THE CASTLE. THEY HAVE WITH THEM" 
90 PRINT 

95 PRINT "EIGHT HOSTAGES." 
100 PRINT 
105 PRINT "THE KING WILL NOT MEET THE CONDITIONS 

THEY HAVE SET FORTH, SO THEY VOW" 
110 PRINT 

115 PRINT "TO FIGHT TO THE DEATH" 
120 PRINT:INPUT "PRESS <ENTER> TO CONTINUE" ,T$: PLAY 

"XH0RN$;" 
125 PRINT 
130 PRINT "YOU ARE THE SHARPSHOOTER SELECTED BY THE 

KING TO TERMINATE " 
135 PRINT 
140 PRINT "THESE KNIGHTS. YOU ARE EQUIPPED WITH A 

HIGH-POWER CROSSBOW." 
145 PRINT 
150 PRINT "ALONG THE CASTLE WALLS ARE FIVE WINDOWS. 

EACH TIME A FIGURE" 
155 PRINT 
160 PRINT "APPEARS AT A WINDOW YOU'LL HAVE THE 

OPTION TO FIRE (BY STRIKING" 
165 PRINT 
170 PRINT "THE SPACE BAR) OR NOT. THE FIGURE THAT 



347 



APPEARS AT A WINDOW" 
175 PRINT 
180 PRINT "COULD BE ONE OF THE HOSTAGES; BUT IF IT 

IS A KNIGHT AND YOU DON'T" 
185 PRINT 

190 PRINT "FIRE, YOU COULD BE HIT..." 
195 PRINT 

200 INPUT "PRESS <ENTER> TO BEGIN" ,T$: PLAY "XHORN$;" 
205 CLS:K=10:HD=8:CR=10 
210 SCREEN 1,0 'draw castle 
215 COLOR 9,0 

225 LINE (20,60)-(290,148),3,BF 
230 FOR X=20 TO 280 STEP 20 
235 LINE (X,50)-((X+10),60),3,BF 
240 NEXT X 

245 LINE (20,40)-(90,60),3,BF 
250 LINE (220,40)-(290,60),3,BF 
255 X=20 

260 FOR Y=X TO (X+60) STEP 20 
265 LINE (Y,30)-((Y+10),40),3,BF 
270 NEXT Y 

275 X=X+200:IF X<=220 THEN 260 
280 FOR X=55 TO 255 STEP 200 
285 LINE (X,10)-(X,40),3 

290 NEXT XrPLAY "03L8CL12D-E-D-L8CP1602L16A-L4B-" 
295 FOR X=56 TO 256 STEP 200 'draw flags 
300 LINE (X,10)-(X,20),2 
305 LINE -((X+20),15),2 
310 LINE -(X,10),2 
315 PAINT ((X+2),15),2 
320 NEXT X 

325 Z=70:Y=40:F0R X=4 TO STEP -2 'draw and 
save windows 

330 LINE ((Y-X),(Z-X))-((Y+20+X),(Z+40+X)) 1 (X/2),BF 
335 NEXT X 

340 DIM WIND0W(340):GET(36,66)~(64, 114) .WINDOW 

345 PI=3.14159:CIRCLE(50,110),7,3,-2*PI,-1*PI:PAINT 

(50, 109), 3 'draw and save figure 
350 CIRCLE(50,96),7,3:PAINT(50,96),3 
355 DIM FIGURE(340):GET(36,66)-(64, 114), FIGURE 
357 DIM H0LE(34):GET(290,160)-(300, 170), HOLE 
'hole for arrows that miss 

360 FOR X=36 TO 282 STEP 50 'window placement 

365 PUT(X, 66) .WINDOW, PSET 

370 NEXT X 

590 REM get a window 

600 W=INT(RND*5+1) 

348 



610 WI=W*50-14 

615 BLANK$=STRING$( 119,0) 

620 REM pause before placing 

630 PA=INT(RND*700+1):IF PA<=250 THEN 630 

640 FOR PU=1 TO 700 

650 IF PU-PA THEN 670 

660 NEXT: GOTO 630 

670 PUT(WI, 66), FIGURE, PSET 

680 REM sharpshooter to fire 

690 FOR TI=1 TO 150 

700 W$=INKEY$ 

710 IF W$<>""THEN 730 

720 NEXT 

730 REM knight or hostage 

740 H1-INT(RND*5+1):H2=INT(RND*5+1):H3=INT(RND*5+1) 

750 H=ABS(H1-H2-H3) 

760 PUT(WI, 66), WINDOW, PSET 

762 IF H-W THEN 1240 

765 IF HD<=0 THEN 840 

770 IF H<=0 OR H>=5 AND TI<=99 THEN 790 

780 GOTO 840 

790 REM a hostage 

800 IF TI>=112 THEN 880 

810 SOUND 300, 2: SOUND 100, 3: LOCATE 20,1: PRINT 

"YOU HAVE JUST KILLED ONE" 
820 PRINT "OF THE HOSTAGES, TURKEY!!" 
830 GOTO 970 
840 IF TI>=150 THEN 880 
850 FOR SO-400 TO 1000 STEP 50: SOUND SO, 1: NEXT: 

LOCATE 20,1: PRINT "GOOD SHOOTING, YOU HAVE" 
860 PRINT "ELIMINATED ANOTHER KNIGHT!" 
870 GOTO 940 

880 IF H>=0 AND H<=2 THEN 1020 
890 FOR SO-1000 TO 400 STEP -50:S0UND S0,1:NEXT: 

LOCATE 20,1: PRINT "THINK FASTER! YOU HAVE BEEN" 
900 PRINT "HIT BY ONE OF THE KNIGHTS! !" 
910 HK=HK+1 

920 IF HK>=6 THEN 1060 
930 GOTO 990 

940 K=K-1: PRINT K;" KNIGHTS REMAIN." 
950 IF K<=0 THEN 1120 
960 GOTO 990 
970 HD=HD-1 

980 IF HDOO THEN 1180 
990 FOR TX=1 TO 3000: NEXT 
1000 REM clear print area 
1010 LOCATE 20,1:PRINT BLANK$;:G0T0 14000U HAVE BEEN" 
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1020 IF HD<-0 THEN 890 

1030 PLAY "XH0RN$;": LOCATE 20,1: PRINT "GOOD THING 

YOU DID NOT FIRE; M 
1040 PRINT "THAT WAS A HOSTAGE!!" 
1050 GOTO 990 
1060 REM hit enough 
1080 PLAY "MB T60 02DL8D.L16DL4DL8FEEDD.L16C+L4D" 

: LOCATE 20,1: PRINT "YOU HAVE BEEN HIT ";HK; 

" TIMES." 
1090 PRINT "YOUR BODY CANNOT STAND" 

1100 PRINT "ANY MORE. YOU ARE DYING " 

1110 GOTO 1530 

1120 REM knights killed 

1140 LOCATE 20,1: PRINT "YOU HAVE DESTROYED ALL TEN" 

1150 PRINT "KNIGHTS. THE KING WILL BE" 

1160 PRINT "PROUD OF YOU, MY FRIEND " 

1170 GOTO 1530 

1180 REM hostages gone 

1200 LOCATE 20,1: PRINT "YOU HAVE KILLED ALL EIGHT" 

IMES." 
1210 PRINT "OF THE HOSTAGES, YOU TURKEY!!" 
1220 PRINT "THE KING WILL HAVE YOUR HEAD!!" 
1230 GOTO 990 
1240 REM complete miss 
1245 IF TI>=100 THEN 765 
1250 XX=TNT(RND*260-i-20) 
1270 YY=INT(RND*38+110) 
1290 PUT(XX,YY),HOLE,PSET 
1310 LOCATE 20,1: PRINT "YOU'LL HAVE TO DO BETTER" 

:PLAY "T120 01 B-D" 
1320 PRINT "THAN THAT, YOU'VE MISSED COMPLETELY!!" 
1330 GOTO 990 
1340 REM crossbow rounds 
1350 REM crossbow rounds 
1360 PRINT 

1370 PRINT "YOU HAVE ";CR;" ARROWS LEFT TO FIRE." 
1380 RETURN 

1390 REM enough arrows left 
1400 REM enough arrows left 
1410 IF TI<=99 THEN CR=CR-1 
1420 GOSUB 1350: IF CR<=0 THEN 1440 
1430 GOTO 590 
1440 REM end 

1450 FOR TX=1 TO 2000: NEXT 
1460 CLS 

1470 PRINT "YOU HAVE EXHAUSTED YOUR" 
1480 PRINT "SUPPLY OF CROSSBOW ARROWS." 
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1490 IF KO0 THEN 1510 

1500 GOTO 1530 

1510 PRINT "THERE ARE STILL ";K;" KNIGHTS 

1520 PRINT "IN THE CASTLE..." 

1530 PRINT 

1540 IF HD<=0 THEN 1560 

1550 GOTO 1600 

1560 PRINT "YOU ARE A BLUNDERING SHARP-" 

1570 PRINT "SHOOTER, YOU IDIOT!!" 

1580 PRINT "YOU HAVE HIT AND KILLED ALL" 

1590 PRINT "EIGHT HOSTAGES!!!" 

1600 PRINT: FOR T-l TO 5000: NEXT 

1610 PRINT "END OF RUN." 

1615 SCREEN 0,0,0 

1620 END 
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Injection for the IBM PC 

5 CLEAR 100 
10 REM program title: INJECTION 
15 V$=RIGHT$(TIME$,2): 'use PC clock, to seed 

random number generator 
20 V=VAL(V$) 
25 RANDOMIZE V 

30 COLOR 5, 7, 3: WIDTH 40: KEY 0FF:CLS 
35 PRINT TAB(15)"> INJECTION <" 
40 PRINT 

45 INPUT "NUMBER TO PLAY (1-10)";U 
50 IF U<1 OR U>10 THEN 45 
55 PRINT "THE INITIALS OF PLAYERS:" 
60 FOR 1=1 TO U:INPUT K$(I) 
65 NEXT : PRINT :PL=1:CLS 
70 PRINT "YOU ARE HEAD OF A LABORATORY" 
75 PRINT "IN WHICH YOUR COMPANY IS IN THE" 
80 PRINT "PROCESS OF INJECTING CUBES WITH" 
85 PRINT "A SOLVENT, TO DESTROY A COLONY" 
90 PRINT "OF BACTERIA WHICH CANNOT BE" 
95 PRINT "CONTROLLED. THESE CUBES WILL" 
100 PRINT "RACE ACROSS THE SCREEN FIVE AT A" 
105 PRINT "TIME. TO INJECT A CUBE, HOLD" 
110 PRINT "THE <UP ARR0W> KEY. THE INJECTED" 
115 PRINT "SOLVENT MUST STRIKE THE OPENING" 
120 PRINT "AT THE BOTTOM OF THE CUBES." 
125 PRINT 
130 PRINT 

135 INPUT "PRESS <ENTER> TO CONTINUE" ;L 
140 CLS: PRINT 

145 PRINT "EACH TIME A CUBE IS INJECTED," 
150 PRINT "THE NUMBER RACING ACROSS THE" 
155 PRINT "SCREEN WILL DECREASE BY ONE, BUT" 
160 PRINT "NO FEWER THAN THREE WILL RACE" 
165 PRINT "ACROSS AT ONE TIME. A TOTAL" 
170 PRINT "OF TEN CUBES MUST BE INJECTED." 
175 PRINT "IF AT ANY TIME YOU MISS AN" 
180 PRINT "INJECTION, THE NUMBER OF CUBES WILL" 
185 PRINT "INCREASE BY ONE. THE INJECTION" 
190 PRINT "MACHINE CAN BE MOVED LEFT OR" 
195 PRINT "RIGHT, WITH THE LEFT AND RIGHT" 
200 PRINT "ARROW KEYS. GOOD LUCK." 
205 PRINT 

210 INPUT "PRESS ENTER TO BEGIN ",L 
215 CLS 
220 REM the cubes 
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225 SCREEN 1,0: COLOR 0,1:JJ=0 

230 DIM ALL(1992):DIM INJECT0R(804) 

235 DIM BLANK(228):GET(0,0)~(30, 28), BLANK 

240 LINE(2,2)-(28,26),2,BF: 

245 LINE(11,20)~(15,26),3,B:PAINT(12,21),3:DIM CUBE 

(228) :GET(0,0)~(30, 28) ,CUBE:PUT(0,0), BLANK, PSET 
260 REM setting up graphics 
270 FOR X=5 TO 205 STEP 50 
280 PUT(X, 60), CUBE, PSET 
290 NEXT 
300 GET(0,60)-(235,88),ALL:DIM SERIJMBLANK(17) :GET 

( 164 , 138)-( 166 , 151 ) ,SERUMBLANK 
310 REM draw injection machine 
317 LINE (165,146)-(165,138),1:DIM SERUM(17) :GET 

(164, 138)-(166, 151), SERUM 
320 LINE (150,169)-(180,199),3,BF:LINE(140,197)~ 

(190,199),3,BF:LINE (150,169)»(1 65,159) ,1:LINE - 

(180,169) ,1:LINE -(150,169) ,1:PAINT(165,160) ,1,1 

:LINE (165,159)-(165,149),1 
325 GET( 133, 149)-( 197, 199), INJECTOR 
340 CLS: 

410 JN=0:T==1:IN=10:E=0:CV=5:G0SUB 600 
420 REM move cubes 

430 X=0 : INC=30 : MINC=INC : M=X : J=0 : J J-0 : P=l 
440 PUT(X,60),CUBE,PSET 

470 X=X+INC:J=J+1: SOUND 10*X+50*P,2:P=P+.l 
480 IF JJ=1 THEN GOTO 520 
490 IF J>=CV THEN 510 
500 GOTO 440 
510 REM blank out 
520 PUT(M, 60), BLANK, PSET 
540 M=M+MINC 
550 REM recycle 

560 IF X>=259 OR XO=0 THEN INCHING :JJ=1: GOTO 580 
570 IF M>=259 OR M<-0 THEN MINC-INC 
580 GOTO 720 

600 INJ=150:REM injector 

610 PUT (IN J, 149), INJECTOR, PSET: SOUND INJ*10+50,1 
670 CA-0:QR-138:QC=INJ+31 
690 LOCATE 1,1: PRINT "CUBES REMAINING:"; 
700 LOCATE 2,1: PRINT "CUBES ADDED:"; 
710 PRINT K$(PL):RETURN 
720 REM injection/injector move 
730 IF R=72 THEN 790 
740 RR$=INKEY$:IF LEN(RR$)-2 THEN R$-MID$(RR$,2,1): 

R=ASC(R$) 
750 IF R=72 THEN 790 
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760 IF R=75 THEN 900 

770 IF R-77 THEN 960 

780 GOTO 440 

790 IF JN=1 THEN 810 

800 QQ=INJ:QK=QC:JN=1 

810 IF QR<=65 THEN V=1:G0T0 870 

815 IF P0INT(QC,QR~-5)=0 THEN GOTO 830 

820 IF P0INT(QC,QR~5)=2 THEN V=1:PUT(QC,QR) , 
SERUMBLANK , PSET : GOTO 870 

825 IF P0INT(QC,QR~5)=3 THEN PAINT(QC,QR-5) , 1 ,3:PUT 
(QC,QR) , SERUMBLANK, PSET: GOTO 1060 

830 QR=QR-5:PUT(QC,QR), SERUM, PSET: SOUND 10*(24-QR),1 

840 GOTO 440 

870 INJ«QQ+E:QC=INJ+31:QQ=0:E=0:QR=138:P=1 

875 PUT(INJ, 149), INJECTOR, PSET 

880 IF V=l THEN GOSUB 1140 

890 R=0:JN=0:G0T0 440 

900 REM to left 

910 IF INJ<=0 THEN 440 

930 INJ=INJ~T:QC=INJ+31 

940 PUT(INJ, 149), INJECTOR, PSET 

950 GOTO 440 

960 REM to right 

970 IF INJ>=254 THEN 440 

990 INJ-INJ+T:QC=INJ+31 
1000 PUT(INJ, 149), INJECTOR, PSET 
1010 GOTO 440 
1060 REM injected 
1070 T=T+1:CV=CV-1:F0R B=l TO 3: SOUND 2000,1; SOUND 

2250,1:NEXT B 
1080 IF T>5 THEN T=l 
1090 IF CV<=2 THEN CV=5 
1100 IN=IN-1: LOCATE 1,20: PRINT IN; 
1110 IF IN<=0 THEN 1250 

1120 E=INT(RND*5):IF E+Q0>=256 THEN E=-(RND*5) 
1130 GOTO 870 

1140 REM cube added/injection missed 
1150 IN=IN+1:F0R B=500 TO 600 STEP 20: SOUND B,l: 

NEXT B 
1160 CA=*CA+1:V=0 
1170 T=T-1 

1180 IF T<=0 THEN T=l 
1190 LOCATE 1,20: PRINT IN; 
1200 LOCATE 2, 15: PRINT CA; 
1210 RETURN 

1250 REM player advance 
1260 W(PL)=CA:PL=PL+1 
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1270 IF PL>U THEN 1310 

1280 LOCATE 3,1: PRINT "STANDBY, ";K$(PL) ;" . . / 

1290 FOR YY=1 TO 1500:NEXT 

1300 R=0:G0T0 410 

1310 FOR YY=1 TO 900: NEXT :CLS 

1320 PRINT "ALL PLAYERS HAVE HAD THEIR" 

1330 PRINT "TURNS AT THE INJECTION MACHINE." 

1340 PRINT "SCORES ARE BASED ON THE NUMBER" 

1350 PRINT "OF CUBES THAT WHERE ADDED DURING" 

1360 PRINT "THE INJECTION PROCESS." 

1370 PRINT:FOR 1=1 TO U 

1380 PRINT "INJECTOR: ";K$(I) 

1390 PRINT "HAD ";W(I);" CUBES ADDED." 

1400 PRINT "FINAL SCORE EVALUATION: "; 

1410 W=W(I) 

1420 IF W>-0 AND W<-5 THEN 1470 

1430 IF W>=5 AND W<=10 THEN 1480 

1440 IF W>=10 AND W<=20 THEN 1490 

1450 PRINT "TOO HORRIBLE TO MENTION." 

1460 GOTO 1500 

1470 PRINT "EXCELLENT.": GOTO 1500 

1480 PRINT "FAIR.":G0T0 1500 

1490 PRINT "POOR." 

1500 FOR YY=1 TO 1200:NEXT YY:PRINT 

1510 NEXT I 

1520 PRINT 

1530 PRINT "END OF INJECTION" 

1535 SCREEN 0,0,0 

1540 END 
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Point A to Point 8 for the IBM PC 

1 REM program title: POINT A TO POINT B 
5 CLEAR 300 

10 V$=RIGHT$(TIME$,2): T use PC clock to seed random 
number generator 

15 V=VAL(V$) 

20 RANDOMIZE V:DIM S0NG$(13) 

30 COLOR 14,10,14:CLS:KEY OFF: WIDTH 40:DEF 
SEG=&HB800 

40 PRINT TAB(15) !! < FROM POINT A > M :BEEP 

50 PRINT TAB(15) "< TO POINT B >": SOUND 500,3 

60 PRINT:DIM D$(50),S(50) 

70 BEEP: INPUT "INSTRUCTIONS (Y/N)";W$ 

80 IF W$-"N" OR W$="N0" THEN G=l 

90 BEEP:INPUT "NUMBER TO PLAY (1-10)";A 
100 IF A<1 OR A>10 THEN 90 
110 IF G=l THEN G=0:G0T0 410 
120 PLAY "MB L8 F E F A C": LOCATE -3,1: PRINT "ARE "YOU 

CONFUSED BY THE MANY" 
130 PRINT "DIFFERENT MAZE GAMES THAT ARE" 
140 PRINT "CURRENTLY ON THE MARKET? HAVE" 
150 PRINT "NO FEAR! ! <FROM POINT A TO " 
160 PRINT "POINT B> IS HERE!!" 
170 PRINT:PRINT "ACTUALLY, THIS IS NOT YOUR" 
180 PRINT "RUN-OF-THE-MILL MAZE GAME." 
190 PRINT "IT IS ONE THAT WILL PROBABLY" 
200 PRINT "CONFUSE YOU MORE THAN EVER!" 
210 PRINT "YOU SEE, YOU WILL NOT BE" 
220 PRINT "CONSTANTLY PRESSING DIFFERENT" 
230 PRINT "KEYS FOR DIFFERENT DIRECTIONS;" 
240 PRINT "INSTEAD, YOU'LL INPUT ALL" 
250 PRINT: INPUT "PRESS ENTER TO CONTINUE", W 
260 CLS 
270 PLAY "MB L8 C C+ D E F": PRINT "OF THE 

INSTRUCTIONS BEFORE YOU" 
280 PRINT "MOVE AT ALL: UP SO MANY" 
290 PRINT "SPACES, RIGHT SO MANY SPACES," 
300 PRINT "LEFT, SO MANY, ETC., ETC." 
310 PRINT "AFTER YOU HAVE ENTERED ALL" 
320 PRINT "OF YOUR DIRECTION INSTRUCTIONS" 
330 PRINT "YOU WILL INPUT <XX>. AT THAT" 
340 PRINT "POINT YOUR PIECE WILL BEGIN " 
350 PRINT "TO MOVE FOLLOWING THE INSTRUCTIONS" 
360 PRINT "YOU GAVE. IF AT ANY POINT YOU " 
370 PRINT "COLLIDE WITH ANYTHING OTHER" 
380 PRINT "THAN A BLANK SPACE— END OF TURN..." 
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390 PRINT 

400 INPUT "PRESS ENTER, AGAIN" ,W 

410 CLS 

420 REM players 

430 REM play in order of entry 

440 BEEP: PRINT "ENTER THE FIRST NAMES OF" 

450 PRINT "THE "; A; "PLAYERS , PLEASE" 

460 FOR 1=1 TO A: INPUT A$(I):S0UND 100+25*1,3 

470 NEXT:L=1:MX=0 

480 PRINT 

490 PRINT "TO BEGIN, ";A$(L);", PRESS ENTER"; 

500 INPUT W 

510 REM graphics and music 

515 FOR 1=1 TO 13: READ S0NG$(I) :NEXT 

520 CLS :SNG=1: PLAY "XSONG$(SNG) ;":G0T0 580 

560 LOCATE 1,1: PRINT STRING! (40, 32): LOCATE 2,2:PRINT 

STRING$(36,219); 
565 DC=INT(RND*6+25):DR=2 

570 LOCATE DR, DC: PRINT STRING$(2,32); : RETURN 
580 GOSUB 560:L0CATE 8,2:PRINT STRINQ$(9,219); 
590 LOCATE 8,18:PRINT STRING$(9,219); :G0T0 620 
600 LOCATE 8,22:PRINT STRING$( 14,219) 
605 DC=INT(RND*7+30):DR=6 

610 LOCATE DR,DC:PRINT STRING$(2,32); : RETURN 
620 GOSUB 700:M«10:Ml«20:M2«6:M3=12:GOTO 670 

630 SNG-SNG+1:IF SNG013 THEN PLAY "XS0NG$(SNG);" 

631 IF M2<=0 THEN M.2=INT(RND*4+2) 

632 IF M2>=23 THEN M2-INT(RND*10*13) 

633 IF M1<«0 THEN M1«INT(RND*10+1) 

634 IF Ml>-40 THEN Ml-38 

635 FOR X«M TO M1:L0CATE M2,X:PRINT CHR$(219) 

637 DR«8:DC-INT(RND*10flO):FR-ll:FC-INT(RND*10+20) 

638 LOCATE DR,DC:PRINT STRING$( 10,219) :LOCATE FR,FC: 

PRINT STRING$(10,219) 

639 FOR ROW-12 TO 14:C0L«INT(RND*25+1):GAP=INT(RND* 
15+1):L0CATE ROW,COL:PRINT STRING$(GAP,32) :NEXT: 
LOCATE 8, COL: PRINT STRING$(GAP,32) 

640 LOCATE M3,X:PRINT CHR$(219) :NEXT:FOR X=M2+1 TO 
M3-2 

650 LOCATE X,M:PRINT CHR$( 219) : LOCATE X,(M+1) :PRINT 

CHR$(219):L0CATE X,(M1-1): PRINT CHR$(219) 
660 LOCATE X.M1: PRINT CHR$(219) :NEXT:RETURN 
670 GOSUB 630 

680 M=1:M1«5:M2=12:M3=16:G0SUB 630 
690 M=6:M1=9:G0SUB 630 
700 M=Ml+l:Ml=Ml+22:M2=M3-2:M3=M3+6 
710 GOSUB 630 
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720 M-Ml+1 :Ml=Ml+9:M2=M2+6:M3=M3+6 

730 GOSUB 630 

740 M=1:M1=9: GOSUB 630 : GOTO 770 

750 LOCATE 20,10:PRINT STRING$(25,219) 

752 LOCATE 12, 30: PRINT STRING$(8,219) 

755 DC=INT(22*RND+10):DR=20 

758 FC=INT(6*RND+31):FR=12 

760 LOCATE DR, DC: PRINT STRING$(2,32) ; 

765 LOCATE FR,FC:PRINT STRING$(2, 32) ;: RETURN 

770 GOSUB 750:Ml=Ml~3:M2=M3+2:M3=M3+6 

775 GOSUB 630 

780 M=Ml+l:Ml=Ml+4 

790 GOSUB 630 

800 IF M>=38 THEN 880 

810 GOTO 780 

820 M=M-5:M1=M+3:M2=2:M3=10 

830 GOSUB 630 

840 M=M-4:Ml=M+4:M2=M3+2:M3=M3+8 

850 GOSUB 630 

860 M=M-5:Ml=M+l:M2a4:M3=6 

870 GOSUB 630: RETURN 

880 REM start/stop locations 

890 GOSUB 820:Y=21:X2=40 

900 Xl=INT(RND*(X2-l)+2) 
1000 IF G=l THEN 1110 
1010 COLOR 11:L0CATE 23,5:PRINT "THIS IS POINT A 

(START)/' 
1020 LOCATE Y,X1:PRINT CHR$( 32): LOCATE Y,(X1-1): 

PRINT CHR$(32) 
1030 FOR T*l TO 50:NEXT 
1040 COLOR 27:L0CATE Y, XI: PRINT CHR$(219) 
1050 FOR T=l TO 1000: NEXT 
1060 COLOR 11:L0CATE Y, XI: PRINT CHR$(219) 
1070 IF G-l THEN 1150 ELSE JJ=X1 

i non n i 

1UUU VJ = X 

1090 LOCATE 23,5:PRINT "LOOK AT THE TOP (POINT B)." 

1100 Y*1:X2=30:G0T0 900 

1110 LOCATE 23, 5: PRINT STRING$(35,32) 

1130 LOCATE 23, 5: PRINT "THIS IS POINT B (STOP 

ZONE)." 
1140 R=X1:G0T0 1020 

1150 LOCATE 23, 5: PRINT STRING$(35,32) 
1160 GOTO 1210 
1170 LOCATE 23, 5: PRINT STRING$( 35, 32): LOCATE 23,5 

i i on r> - pnr , TT'mT 

1190 FOR T-l TO 2000: NEXT 
1200 GOSUB 11 70: RETURN 
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1210 GOSUB 1170 

1220 PRINT "YOU WILL NOW GIVE INSTRUCTIONS: 

1230 GOSUB 1190: GOSUB 1170 

1240 PRINT "TO ENTER THE STOP ZONE..." 

1250 GOSUB 1190:G0SUB 1170 

1260 PRINT "STOP ZONE BLOCK MUST BE HIT: 

1270 GOSUB 11 90: GOSUB 1170 

1280 PRINT "HEAD-ON TO COMPLETE A RUN." 

1290 GOSUB 1190:G0SUB 1170 

1300 1=1 

1310 INPUT "DIRECTION (L,R,U,D)" ,D$: SOUND 500,3 

1320 IF D$="XX" THEN 1380 

1330 D$(I)=D$: GOSUB 1170 

1340 INPUT "FOR HOW MANY SPACES "; S : BEEP 

1350 S( I) =S: 1=1+1: GOSUB 1170 

1360 IF I>=51 THEN 1430 

1370 GOSUB 1200:GOSUB 1170:G0T0 1310 

1380 GOSUB 1170 

1390 PRINT "THE COMPUTER WILL NOW CARRY" 

1400 GOSUB 1190:G0SUB 1170 

1410 PRINT "OUT ALL OF YOUR INSTRUCTIONS." 

1420 Iol-l:H»I:I=l:X-JJ:Y-21:G=0 

1425 GOSUB 11 90: GOTO 1480 

1430 GOSUB 1170 

1440 PRINT "THAT IS THE LIMIT OF THE" 

1450 GOSUB 1190:G0SUB 1170 

1460 PRINT "INSTRUCTIONS YOU CAN ENTER." 

1470 GOSUB 1190:G0T0 1380 

1480 D$«D$(I):S=S(I):J=1:IF I<*12 THEN PLAY 

"XSONG$(I);" 
1490 IF D$="L" THEN 1540 
1500 IF D$="R" THEN 1580 
1510 IF D$="U" THEN 1620 
1520 IF D$="D" THEN 1660 
1530 GOTO 1760 'bad direct 
1540 IF PEEK((X-2)*2+(Y-l)*80)=219 THEN 1760 
1550 X=X-1: LOCATE Y,X+1:PRINT CHR$(32) 
1560 IF X<=0 THEN 1760 
1570 GOTO 1690 

1580 IF PEEK(X*2+(Y-1)*80>219 THEN 1760 
1590 X=X+1 -.LOCATE Y,(X-1) :PRINT CHR$(32) 
1600 IF X>=40 THEN 1760 
1610 GOTO 1690 

1620 IF PEEK((X-1)*2+(Y-2)*80)=219 THEN 1760 
1630 Y=Y-1:L0CATE (Y+l) ,X:PRINT CHR$(32) 
1640 IF Y<=0 THEN 1760 
1650 GOTO 1690 
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1660 IF PEEK((X-1)#2+Y*80)=219 THEN 1760 

1670 Y=Y+1:L0CATE (Y-l) ,X:PRINT CHR$(32) 

1680 IF Y>=20 THEN 1760 

1690 COLOR 11:L0CATE Y,X:PRINT CHR$(2) :C0L0R 14 

1700 IF S>J THEN 1720 

1710 GOTO 1730 

1720 J=J+1:G0T0 1490 

1730 1=1+1 

1740 IF I>H THEN HH=1:G0T0 1760 

1750 GOTO 1480 

1760 GOSUB 1170:IF ABS(X~R)<=1 THEN 2060 

1765 IF HH=1 THEN HH=0:GOTO 1900 

1770 PRINT "SORRY... YOU HAVE ATTEMPTED" 

1780 GOSUB 1190:G0SUB 1170 

1790 PRINT "A SH0RT™CUT THAT DIDN'T WORK." 

1800 REM another play? 

1810 GOSUB 1190 

1820 GOTO 1950 

1830 GOSUB 1190: GOSUB 1170 

1840 PRINT "READY TO TRY AGAIN (Y/N)"; 

1850 INPUT W$ 

1860 IF W$="Y"THEN 1880 

1870 GOTO 2300 

1880 LOCATE Y,X: PRINT CHR$ ( 32 ): LOCATE 1,R: PRINT 

CHR$(32) 
1890 GOTO 1970 
1900 GOSUB 1170 

1910 PRINT "THAT WASN'T ENOUGH TO GET " 
1920 GOSUB 11 90: GOSUB 1170 
1930 PRINT "YOU TO THE STOP ZONE, ";A$(L) 
1940 GOTO 1800 
1950 REM player advance 
1960 IF L>-A THEN 2020 ELSE L=L+1 
1970 GOSUB 1170 

1980 PRINT A$(L);" WILL NOW ATTEMPT THE" 
1990 GOSUB li90:G0SUB 1170 
2000 PRINT "VENTURE FROM POINT A TO B." 
2005 LOCATE Y,X:PRINT CHR$( 32) : LOCATE 1,R:G0SUB 560 
2010 GOSUB 600:G0SUB 750:M=35:M1=38 
2015 GOSUB 1190: GOTO 880 
2020 REM start over 
2030 L=l: GOSUB 1170 
2040 PRINT "ALL HAVE PLAYED..." 
2050 GOSUB 2160:MX=0:G0T0 1830 
2060 IF ABS(Y-1)>=1 THEN 1900 
2070 GOSUB 1190:G0SUB 1170:REM complete 
2080 PRINT "VERY WELL DONE, ";A$(L);"!I" 
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2090 GOSUB 1190:G0SUB 1170 

2100 PRINT "YOU HAVE MADE A COMPLETE " 

2110 GOSUB 1190:G0SUB 1170 

2120 PRINT "PASSAGE TO POINT B..." 

2130 GOSUB 1190 

2140 M(L)=1:MX=1 

2150 GOTO 1950 

2160 REM players made to point b 

2170 IF MX=0 THEN RETURN 

2180 GOSUB 1190:G0SUB 1170 

2190 PRINT "THE FOLLOWING HAVE EASILY MADE" 

2200 GOSUB 1190: GOSUB 1170 

2210 PRINT "IT TO POINT B. . . ." 

2220 GOSUB 1190:G0SUB 1170 

2230 FOR U=l TO A 

2240 IF M(U)=1 THEN 2260 

2250 NEXT: RETURN 

2260 PRINT A$(U);" " 

2270 GOSUB 1190: GOSUB 1170 

2280 M(U)=0:GOTO 2250 

2290 REM end 

2300 GOSUB 1190: GOSUB 1170 

2310 PRINT "POINT A TO POINT B" 

2320 GOSUB 1190:G0SUB 1170 

2330 PRINT "TERMINATED " 

2340 GOSUB 1190:G0SUB 1170 



2350 END 




2360 DATA "MB T200 LI 03 E D" 




2365 DATA "MB T250 L8 C 02 B 03 C D C 02 G E F G A 


i 


G E L4 G" 




2370 DATA "MB MS L8 03 C D L4 E E L8 E D C D L4 E 

D D M 
2380 DATA "MB L8 03 E D L8 C 02 B 03 C D C 02 G E 




F 


G A G E L4 G" 




2390 DATA "MB MS L8 03 C D L4 E G L8 G E C D L4 E 


D 


L2 C" 




2400 DATA "MB MS 03 L8 E L4 G L8 E L4 G G L8 E L4 


G 


L8 E L2 G" 




2410 DATA "MB MS 03 L8 F L4 A L8 F L4 A A L8 F L4 


A 


L8 F L2 A" 




2420 DATA "MB MS L12 03 G A B 04 L4 C C 03 G G E 




E D" 




2425 DATA "MB MS L8 C D L4 E L8 G A G E C D L4 E 




D C" 




2430 DATA "MB MS P4 03 L4 C 02 L9 G G- G L4 G+ G" 




2440 DATA "MB MS P4 01 G 02 B 03 C" 




2450 DATA "MB MS P4 05 L4 C 04 L9 G G- G L4 G+ G" 




2460 DATA "MB MS P4 01 G 04 B 05 C" 
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Intercept for the IBM PC 

1 REM program title: INTERCEPT 
3 CLEAR 200 

5 V$=RIGHT$(TIME$,2): 'use PC clock to seed random 
number generator 

10 V=VAL(V$) 

15 RANDOMIZE V 

30 CLS: WIDTH 40: KEY OFF 

40 BEEP: PRINT TAB(15)"[[ INTERCEPT ]]" 

50 PRINT 

60 BEEP: INPUT "INSTRUCTIONS ";Q$ 

70 IF Q$="N" OR Q$="N0" THEN 520 

80 PRINT 

90 PRINT M Y0U ARE THE LEADER OF A SPECIAL" 

95 PRINT 
100 PRINT "GROUP KNOWN AS [[ INTERCEPT ]]." 
105 PRINT 

110 PRINT "YOU WILL HAVE TO IDENTIFY AND 
115 PRINT 

120 PRINT "POSSIBLY DESTROY ANY ALIENS WHO" 
125 PRINT 

130 PRINT "VENTURE INTO THE STERILIZED DOME" 
135 PRINT 

140 PRINT "WHERE ALL OF YOUR INHABITANTS LIVE." 
145 PRINT 

150 PRINT "THE APPROACH TO THE DOME CONSISTS OF" 
155 PRINT 

160 PRINT "CROSSROADS. NEAR THE EDGE OF THE SCREEN" 
165 PRINT 

170 PRINT "ARE TWO LASER CANNONS. THESE CANNONS" 
175 PRINT 

180 PRINT "WILL FIRE ONLY WHEN YOU HAVE ENTERED" 
185 PRINT 

x?u ruiiu urn ouivisxajI jxjli 1 D£,yU£.iNL,£j; KJAjfli AKKUW, ": 

GOSUB 2300:G0SUB 2330 
193 PRINT 
195 PRINT 

197 INPUT "PRESS ENTER TO CONTINUE" ,Q$: CLS 
200 PRINT "THEN LEFT ARROW TO PRIME, AND UP ARROW" 
203 PRINT 

205 PRINT "TO FIRE.":PRINT 

210 PRINT "AT RANDOM TIMES, DIFFERENT FIGURES" 
215 PRINT 

220 PRINT "WILL APPEAR AT THE CENTER OF THE" 
225 PRINT 
230 PRINT "VERTICAL ARM OF THE CROSSROAD. WHEN" 
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235 PRINT 

240 PRINT "THE FIGURE IS AT THE CENTER, IN LINE" 

245 PRINT 

250 PRINT "WITH YOUR LASER, YOU MUST DECIDE " 

255 PRINT 

260 PRINT "WHETHER IT IS ALIEN OR FRIENDLY. IF" 

265 PRINT 

270 PRINT "YOU BELIEVE THAT IT IS THE LATTER OF" 

275 PRINT 

280 PRINT "THE TWO, DO NOTHING—JUST LET IT PASS.: 

285 PRINT 

290 PRINT "IF YOU BELIEVE IT IS THE ALIEN, FIRE ": 

GOSUB 2310:G0SUB 2350 
295 PRINT:PRINT 

300 INPUT "PRESS ENTER TO CONTINUE :"; Q$ 
310 CLS:PRINT "THE LASER BY PRESSING THE UP ARROW 

KEY." 
315 PRINT 

320 PRINT "REMEMBER, THE LASER CANNOT BE FIRED " 
325 PRINT 

330 PRINT "UNTILL YOU HAVE FIRST PRIMED IT BY " 
335 PRINT 
340 PRINT "PRESSING THE RIGHT, THEN LEFT ARROW KEYS. 

":GOSUB 2310 
345 PRINT 

350 PRINT "YOUR COMMISSION WILL LAST 10 DAYS. IF" 
355 PRINT 

360 PRINT "YOU DESTROY TEN FRIENDLY INTRUDERS " 
365 PRINT 

370 PRINT "BEFORE THAT TIME, YOUR COMMISSION" 
375 PRINT 

380 PRINT "WILL BE TERMINATED IMMEDIATELY." 
385 PRINT: PRINT 

390 INPUT "PRESS ENTER TO CONTINUE:" ,X$ 
400 CLS: PRINT "THE FINAL OBJECT: 
405 PRINT 

410 PRINT "TO DESTROY AS MANY ALIEN INTRUDERS" 
415 PRINT 

420 PRINT "AS YOU CAN BEFORE YOUR COMMISSION " 
425 PRINT 

430 PRINT "EXPIRES." 
460 PRINT 
510 PRINT 
520 PRINT 

530 IF Q$="N" OR Q$="N0" THEN GOSUB 2300 
535 GOSUB 2350: INPUT "YOUR LAST NAME, PLEASE : M ,P$ 
540 CLS: COLOR 15,0,7 
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550 REM intercept crossroads 

560 X$=STRING$(16,219) 

570 AC=3:AR=4:J=1 

580 LOCATE AR, AC: PRINT X$: LOCATE AR-f5,AC:PRINT X$ 

590 LOCATE AR,AC+20: PRINT X$: LOCATE AR-f5,AC+20:PRINT 

X$ 
600 AR=AR+1:J=J+1 
610 IF J>=5 THEN 630 
620 GOTO 580 

630 AAR=8:AAC=37:A$=CHR$(219)+CHR$(16) 
640 AA$=CHR$(17)+CHR$(219) 
650 COLOR 11:L0CATE AR,AC:PRINT A$:LOCATE AAR,AAC: 

PRINT AA$ 
660 LOCATE 16, 5: PRINT "LEADER: M ;P$ 
670 LOCATE 17, 5: PRINT "PRESENT CONDITION:" 
680 LOCATE 18, 5: PRINT "LASER STATUS:" 
690 LOCATE 19, 5: PRINT "DAYS TO GO ON COMMISSION:" 
700 REM get figures 
710 F$(1)=CHR$(1):F$(2)=CHR$(3):F$(3)-CHR$(5):F$(4) 

==CHR$(8):F$(5)=CHR$(15) 
750 REM alien 

760 A$(1)=CHR$(2):A$(2)=CHR$(4):A$(3)=CHR$(6) , :A$(4) 

-CHR$(14):A$(5)=CHR$(64) 
790 REM double size 
800 FOR 1=1 TO 5 
810 F$(I)*F$(I)+F$(I) 
820 A$(I)=A$(I)+A$(I) 

830 NEXT:KR1=AR:KC1=AC+2:KR2=AR:KC2=AC+18 
840 REM days/alien/friendly 
850 DA=dO:AI=0:FI=0:AD=0:FD=0:DF=0 
860 C$-"QUIET ":CC$="ALERT" 
870 L$="CHARGING":LL$-"READY " 
880 LOCATE 17, 24: PRINT C$ 
890 LOCATE 18, 19: PRINT L$; 

on a i nn stt? in oi »nn tmt r»A, 
j\j\j xjwo/ixju i^, Ji.iiviiu ut\ , 

910 REM start location 

920 LR=13:LG=20 

930 REM condition 

940 FOR T=l TO 500 

945 IF INT(T/200)=T/200 THEN SOUND T/40,3:SOUND 

32767,3 
950 I=INT(RND*5+1) 
960 N=INT(RND*5+1) 
970 IF N=I THEN 1000 
980 NEXT T 
990 GOTO 940 
1000 REM alert / intruder 
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1005 IF T<=200 THEN T=T+1:G0T0 1005 

1010 X=0:LF=1:XC=0:DS=0:YU=0 

1020 LOCATE 17,24:PRINT STRING$(6,32) ; 

1030 FOR T=l TO 100: NEXT 

1040 LOCATE 17, 24: COLOR 28: PRINT CC$' 

1050 FOR TT=1 TO 500: NEXT 

1060 SOUND 1000, 3: SOUND 32767,3:X=X+1:IF X<=4 THEN 

1060 
1070 COLOR 12:L0CATE 17,24:PRINT "INTRUDER"; 
1080 R=INT(RND*2+1) 
1090 IF R=2 THEN 1110 

1100 LOCATE LR,LC:COLOR N:PRINT F$(N);:GOTO 1115 
1110 LOCATE LR,LC:COLOR N:PRINT A$(N); 
1115 YU-YU+1 
1120 IF E=0 THEN EE$-INKEY$:IF LEN(EE$)=2 THEN 

E$=MID$(EE$ , 2 , 1) :E=ASC(E$) 
1125 IF LF-4 THEN 1360 
1130 MM«INT(RND*2+1) 
1140 IF MM=1 AND YUO70 THEN 1180 
1150 IF LR<=1 THEN 1520 

1160 LR=LR-1: LOCATE LR+1 ,LC:PRINT STRING$(2,32); 
1170 IF LF<-6 GOTO 1200 ELSE 1360 
1180 IF LR>=12 THEN MM=2:G0T0 1150 
1190 LR=LR+1: LOCATE LR-1 ,LC: PRINT STRING$(2,32) ; 
1200 IF E=77 AND LF=1 THEN 1240 
1210 IF E=75 AND LF=2 THEN 1250 
1220 IF E=72 AND LF-3 THEN 1260 
1230 GOTO 1270 
1240 LF=2:G0T0 1280 
1250 LF=3:G0T0 1280 
1260 LF=4:G0T0 1280 
1270 E=0:GOTO 1090 

1280 COLOR 3:L0CATE 23,5:PRINT "LASER KEY SEQUENCE:"; 
1290 PRINT LF-1: COLOR 15: SOUND 300,3 
1300 IF LF=3 THEN 1320 
1310 GOTO 1270 

1320 COLOR 12:L0CATE 18,19:PRINT LL$;:COLOR 15 
1330 GOTO 1270 
1360 REM firing 
1370 IF R=l THEN 1390 
1380 COLOR N:LOCATE LR,LC:PRINT A$(N);:C0L0R 15:G0T0 

1400 
1390 COLOR N:LOCATE LR,LC:PRINT F$(N);:C0L0R 15 
1400 COLOR 12:L0CATE AR,AC+2:PRINT STRING$(15 ,222) ; 
1410 LOCATE AAR,AAC~15: PRINT STRING$(15 ,221) ; :COLOR 

15 
1415 FOR TT=1 TO 30: SOUND 150,1: SOUND 32767,1 
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1417 NEXT 

1420 DEF SEG=&HB800:IF PEEK(600)=32 THEN 1440 

1430 GOTO 1650 

1440 COLOR 11: LOCATE 18,19:PRINT L$:COLOR 15:LF=1 

1450 COLOR 11:L0CATE 23, 5: PRINT "INDIRECT HIT 

M ;:COLOR 15 
1460 LOCATE KR1 ,KC1 : PRINT STRING$(16,32) 
1470 LOCATE KR2,KC2:PRINT STRING$(16,32) 
1480 FOR TT=1 TO 10: SOUND 450,1: SOUND 32767,1 
1490 NEXT 
1500 GOTO 1090 
1520 REM intruder in dome 
1525 IF YU<=50 THEN 1190 
1530 LOCATE LR.LC: PRINT " f! ; 
1540 COLOR 12:L0CATE 23, 5: PRINT "INTRUDER IS NOW IN 

DOME. ..": COLOR 15 
1550 FOR TT=1 TO 15: SOUND 900,1: SOUND 32767,1 
1560 NEXT:LOCATE AR,AC+2:PRINT STRING$(32 ,32) ; 
1565 LOCATE 23,5:PRINT STRING$(25,32) 
1570 FOR TT-1 TO 200 : NEXT : SOUND 1750,3 
1575 IF R=l THEN 1590 
1580 GOTO 1610 
1590 COLOR 3: LOCATE 23,5:PRINT "INTRUDER: 

FRIENDLY.... ";:COLOR 15 
1600 GOTO 1620 
1610 COLOR 11:L0CATE 23,5:PRINT "INTRUDER: ALIEN... 

": COLOR 15 
1620 FOR TT=1 TO 500: NEXT 
1630 IF XC<-3 THEN XC=XC+1:G0T0 1565 
1640 GOTO 1670 

1650 COLOR 3: LOCATE 23, 5: PRINT "INTRUDER: DESTROYED 
": COLOR 15 

1655 FOR TT=1 TO 10: SOUND (TT+10)*10,1: SOUND 32767,1 

1656 NEXT 

1660 DS=1: LOCATE LR,LC: PRINT " "::GOTO 1550 

1670 REM variable count 

1680 LOCATE 23, 5: PRINT STRING$(28, 32) 

1690 IF DS=1 THEN 1810 

1700 IF R=l THEN 1750 

1710 AI=AI+1 

1720 LOCATE 20,5:PRINT "YOU NOW HAVE" ;AI; "ALIENS IN 

THE DOME." 
1740 GOTO 1790 
1750 FI=FI+1 
1760 LOCATE 21 ? 5:PRINT "YOU HAVE WISELY LET": FT; 

"FRIENDS PASS." 
1790 REM continue if days>=l 
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1800 GOTO 1900 

1810 REM destroyed 

1820 IF R-l THEN 1870 

1830 AD-AD+1 

1840 LOCATE 21,5:PRINT "YOU HAVE DESTROYED ";AD;" 

ALIENS . " 
1850 GOTO 1900 
1870 FD=FD+1 
1880 LOCATE 22, 5: PRINT FD;" FRIENDS HAVE NOW BEEN 

DESTROYED. " 
1890 REM 

1900 REM dx for days decrease 
1910 REM if less than or equal to 75 
1920 DX=INT(RND*100+1) 
1930 IF DX<=75 THEN DA=DA-1:DF=DF+1 
1940 FOR TT=1 TO 1200:NEXT 
1950 LOCATE 23, 5: PRINT STRING$(34,32) 
1960 IF DA<=0 OR FD>-10 THEN 1980 
1970 FOR TT=1 TO 10: SOUND 200,1: SOUND 32767,1 
1975 NEXT: GOTO 860 
1980 IF FD>=10 THEN 2010 
1990 LOCATE 23, 5: PRINT "YOUR COMMISSION HAS 

EXPIRED... " 
2000 GOTO 2020 
2010 LOCATE 23,5:PRINT "YOUR COMMISSION 

TERMINATED " 

2020 FOR TT=1 TO 2000:NEXT 

2030 CLS 

2040 PRINT "DURING YOUR ";DF;" DAY COMISSION" 

2050 PRINT "YOUR RECORD IS AS FOLLOWS,";P$;": M 

2070 PRINT "ALIENS ALLOWED TO PASS INTO DOME:";AI 

2090 PRINT "ALIENS DESTROYED: ";AD 

2100 PRINT "FRIENDLY INTRUDERS DESTROYED: ";FD 

2110 PRINT 

2120 IF FD>=10 THEN 2240 

2130 PRINT "YOUR COMMISSION HAS BEEN RATED: " 

2140 IF AD>=1 AND AD<=5 THEN 2170 

2150 IF AD>=5 AND AD<=9 THEN 2190 

2160 IF AD>=10 THEN 2210 

2170 PRINT "IMPROPER: POOR USE OF LASER." 

2180 GOTO 2270 

2190 PRINT "FAIR: LASER USED, BUT INSUFFICIENTLY." 

2200 GOTO 2270 

2210 PRINT "EXCELLENT: ALL JUDGEMENTS MADE" 

2220 PRINT "WITH UTMOST CAUTION." 

2230 GOTO 2270 

2240 PRINT "YOU HAVE DESTROYED ";FD;" FRIENDLY" 
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2250 PRINT "INTRUDERS, M ;P$; M . DO NOT ATTEMPT" 

2260 PRINT "TO REAPPLY FOR THIS COMMISSION." 

2270 PRINT 

2280 PRINT "TERMINATION OF PROGRAM." 

2290 END 

2300 INTERCEPT$="02 MS L12 B- A F ML L4 G" 

2310 PLAY "MB MN 02 L2 C L4 F;XINTERCEPT$;MN L4G C;' 

2320 RETURN 

2330 PLAY "MB XINTERCEPT$;XINTERCEPT$;MS L12 A F A 

LI C;" 
2340 RETURN 
2350 PLAY "MB XINTERCEPT$;XINTERCEPT$;P15 L12 MS 

GGG L 1 03 C; M 
2360 RETURN 
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Insomnia for the IBM PC 

10 REM program title: INSOMNIA 

20 CLEAR 200:C0L0R 1 ,11 ,7:CLS:KEY OFF:WIDTH 40 

30 PRINT "INSOMNIA" 

40 PRINT 

50 PRINT "SO YOU ARE HAVING PROBLEMS" 

60 PRINT "SLEEPING. JUST SIT BACK, KEEP" 

70 PRINT "YOUR EYES ON THE VIDEO AND" 

80 INPUT "PRESS ENTER" ;X:CLS 

90 A=20:W=0 
100 PRINTrPRINT TAB(A)":"; 
110 PRINT TAB(A-1)":";TAB(A+1)":"; 
120 L=INT(RND*2+1) 
130 IF 1=1 THEN 160 
140 IF A>=39 THEN 170 
150 A=A+2:G0T0 180 
160 IF A<=10 THEN 150 
170 A=A~2 

180 W=W+1:IF W=15 THEN 350 
190 IF W-700 THEN 210 
200 GOTO 100 
210 IF W<=800 THEN 230 
220 GOTO 250 
230 PRINT 

240 W=W+1:G0T0 210 
250 PRINT "GETTING SLEEPY NOW????" 
260 FOR 1=1 TO W:NEXT 
270 IF W<-814 THEN 290 
280 GOTO 300 

290 PRINT :W=W+1: GOTO 270 
300 FOR X=l TO 40 

310 LOCATE 1,X:PRINT CHR$( 219) : LOCATE 23,X:PRINT 
CHR$(219):NEXT 

320 COLOR 9: FOR X=l TO 23 

330 LOCATE X,1:PRINT CHR$( 219) : LOCATE X,40:PRINT 
CHR$(219):NEXT 

340 FOR 1=1 TO W : NEXT :W-0: GOTO 400 

350 LOCATE 16,20 

360 PRINT "KEEP EYES HERE!" 

370 GOSUB 600 

380 GOTO 190 

400 L=38 : AR=2 : AC=2 : XR=22 : XC=6 : Y=AR 

410 A$=STRING$(L,L*4+27) 

420 LOCATE AR, AC: PRINT A$; 

430 LOCATE XR,XC: PRINT A$; 

440 A$=STRING$(L,32) 
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450 LOCATE AR, AC: PRINT A$ 

460 LOCATE XR,XC: PRINT A$ 

470 AR=AR+1:XR=XR-1:IF AR=12 THEN 530 

480 IF XR=Y THEN 500 

490 GOTO 410 

500 IF W<=50 THEN 520 

510 GOSUB 600: GOTO 610 

520 W=W+1:IF W=25 THEN GOSUB 580 

525 GOTO 400 

530 IF W>1 THEN 480 

540 LOCATE AR,10 

550 PRINT ,! STARE AT THIS LOCATION"; 

560 GOSUB 600 

570 GOTO 480 

580 A2=AR-6:IF AR<=0 THEN AR=1 

585 A1=AC+25:IF Al>=40 THEN Al=40 

590 PRINT "NOW FOLLOW THE BARS"; 

600 FOR 1=1 TO 1000: NEXT: RETURN 

610 CLS 

620 PRINT "IF YOU ARE NOT GETTING SLEEPY" 

630 PRINT "BY NOW, YOU f RE A HOPELESS" 

640 PRINT "CASE! !!" 

650 GOSUB 600: PRINT 

660 PRINT "THIS IS THE LAST PHASE OF" 

670 PRINT "INSOMNIA. IF IT FAILS, RUN" 

680 PRINT "TOE ENTIRE PROGRAM ONCE" 

690 PRINT "AGAIN " 

700 GOSUB 600: PRINT 

710 PRINT "KEEP YOUR EYES ON THE MOVING" 

720 PRINT "BLOCK, THINKING TO YOURSELF" 

730 PRINT "'I AM GETTING SLEEPY " 

740 INPUT "PRESS ENTER ";X:W=0 

750 COLOR 4,2:CLS:P$=STRING$(2,219):A$==STRING$(2,32) 
:PG*PC+30 



770 LOCATE X,Y: PRINT CHR$(219) :NEXT 

780 PR=X:PC-20 

790 GOSUB 1100 

800 FOR X=6 TO 9 

810 LOCATE X,Y: PRINT CHR$(32) :NEXT 

820 IF Z=l THEN 930 

830 FOR X=6 TO 9 

840 LOCATE X,Y:PRINT CHR$( 219) :Y=*Y-1: NEXT 

850 GOSUB 1120 

860 PC=PC-6 

870 GOSUB 1100 

880 Y=20 
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890 FOR X=6 TO 9 

900 LOCATE XJ: PRINT CHR$(32):Y«Y-1:NEXT 

910 GOSUB 1120: 

920 Z=1:G0T0 760 

930 GOSUB 1120 

940 FOR X=6 TO 9 

950 LOCATE X,Y:PRINT CHR$ ( 219) :Y=Y+1: NEXT 

960 PC=PC+5: LOCATE PR, PC: PRINT P$ 

970 Y=20:F0R X=6 TO 9 

980 LOCATE X,Y: PRINT CHR$(32) 

990 Y=Y+1:NEXT 

1000 GOSUB 1120 

1010 W=W+1 

1020 IF W=5 THEN 1050 

1030 IF W=50 THEN 1150 

1040 Z=0:G0T0 760 

1050 FOR X=12 TO 27 

1060 LOCATE 6,X:PRINT CHR$( 219): LOCATE 11,X:PRINT 

CHR$( 219): NEXT 
1070 FOR X=6 TO 11 
1080 LOCATE X, 12: PRINT CHR$( 219) : LOCATE X, 27: PRINT 

CHR$(219):NEXT 
1090 GOTO 1030 
1100 LOCATE PR,PC:PRINT P$; 
1110 RETURN 

1120 LOCATE PR, PC: PRINT A$; 
1130 RETURN 

1150 REM end of program 
1155 LOCATE 6, 20: PRINT P$ 
1160 GOTO 1160 
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Lap-the-Track for the IBM PC 

3 CLEAR 200:CLS:KEY OFF: WIDTH 80 

5 V$=RlGHT$(TlME$,2): 'use PC clock to seed random 
number generator 
10 V=VAL(V$) 
15 RANDOMIZE V 

30 PRINT TAB(25) "-:-: LAP-THE-TRACK :-:-» 
40 PRINT :DIM A$(15) ,A(15) ,LA(15) ,T(15) 
50 INPUT "INSTRUCTIONS ";A$ 
60 IF A$<>"Y" AND A$<>"YES fl THEN 300 
70 PRINT "UP TO FIFTEEN PEOPLE BET ON FOUR MOVING 

SPOTS THAT ARE IN A FAST RACE" 
80 PRINT 
90 PRINT "TO THE FINISH. A COMPLETE RACE CONSISTS 

OF TEN LAPS. EACH PLAYER" 
100 PRINT 
110 PRINT "WILL BE ABLE TO CHOOSE A LANE (1-4) AND 

MAKE A BET OF ANY DESIRED " 
120 PRINT 
130 PRINT "AMOUNT ON THAT LANE. IF THERE ARE NO 

WINNERS, THE COMPUTER WILL" 
140 PRINT 
150 PRINT "PLACE THE MONEY ON A LANE OF ITS CHOICE 

IN THE NEXT RACE. IF THE" 
160 PRINT 
170 PRINT "COMPUTER'S SPOT HAPPENS TO WIN, IT WILL 

NOT TAKE THE MONEY, IT WILL" 
180 PRINT 
190 PRINT "JUST BET ON ANOTHER LANE. SO, NO MATTER 

HOW YOU SLICE IT, SOMEONE" 
200 PRINT 
210 PRINT "IS BOUND TO WIN. (YOU CAN USE REAL 

MONEY IN THIS GAME IF YOU WANT TO.)" 
220 PRINT 
300 PRINT 

310 INPUT "HOW MANY WILL PLAY"; A 
320 IF A<1 OR A>15 THEN 320 
330 PRINT "INITIALS, PLEASE"; 
340 FOR 1=1 TO A 
350 INPUT A$(I):NEXT 
360 PRINT 

370 PRINT "YOU WILL NOW SELECT A LANE." 
380 1=1 

390 PRINT A$m:": LANE NUMBER": 
400 INPUT LA(I) 
410 IF LA(I)<1 OR LA(I)>4 THEN 390 
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420 PRINT "BET WHAT AMOUNT?"; 

430 INPUT A(I) 

440 1=1+1 

450 IF I>A THEN 480 

460 PRINT 

470 GOTO 390 

480 CLS:GOSUB 1300: IF ZZ=1 THEN 530 

490 PRINT "IF MORE THAN ONE PLAYER WINS (SELECTION 

OF SAME LANE), ALL MONEY" 
500 PRINT "WILL BE DIVIDED AS EQUALLY AS POSSIBLE." 
530 PRINT: IF CB-1 THEN 960 
540 PRINT "PRESS ENTER TO START THE RACE:" 
550 INPUT A$:C0L0R 14,6,10:CLS 
560 REM outer track 
570 S$-STRING$(80,219):L0CATE 1,1:PRINT S$:L0CATE 

6,1: PRINT S$ 
580 LOCATE 11,1: PRINT S$: LOCATE 16,1: PRINT S$ 
590 FOR X=2 TO 5:L0CATE X,l: PRINT CHR$(219) :LOCATE 

X,80:PRINT CHR$(219) 
600 NEXT 
610 FOR X=12 TO 15: LOCATE X,1:PRINT CHR$(219): 

LOCATE X, 80: PRINT CHR$(219) 
620 NEXT 

630 REM spot locations 
640 GOSUB 1200:G0SUB 1410:L=l:IR=7:IOl 
650 LR(L)=IR:LC(L)=IC:RR(L)-IR:RC(L)=IC:PR(L)= 

IR~5:PC(L)=IC-f30:LP(L)=:0 
660 IR=IR+1:IF L>=4 THEN 680 
670 L=L+I:GOTO 650 
680 FOR 1=1 TO 4 

690 COLOR I: LOCATE LR(I) ,LC(I) :PRINT CHR$(254) :NEXT 
700 REM start race 
705 PLAY "MF MS 03 L9 C F A 04 L8 C L16 CC L8 C 03 

L8 A L16 AA L8 A F A F L4 C" 
710 LP=0:X$=CHR$(219):PK=LR(1)+1 
720 I=INT(RND*4+l):M=ABS(I-5) 
730 IF LC(1)>80 THEN 1000 ELSE LOCATE LR(I), 

LC(I):PRINT " "; 
740 IF ABS(LC(I)~RC(I))>=60 THEN 1000 
750 LC(I)=*LC(I)+INT(RND*15+1):IF LC(I)>=80 THEN 

GOTO 1000 
760 COLOR I: LOCATE LR(I) ,LC(I) :PRINT X$:SOUND 1*50,1 
770 IF M+IOI AND M+l<>5 THEN 790 
780 GOTO 820 

790 IF LC(M+1)>80 THEN LC(M+l)-80 
795 LOCATE LR(M+1) ,LC(M+1): PRINT " " 
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800 LC(M+1)=LC(M+1)+INT(RND*4+1):IF LC(M+1)>=80 

THEN GOTO 1000 
810 COLOR (M-fl)rLOCATE LR(M+1) f LC(M+l) : PRINT 

X$: SOUND (M+l)*50,l 
820 IF M-IOI AND M-1O0 THEN 840 
830 GOTO 870 

840 IF LC(M~1)>80 THEN LC(M-1)=80 
845 LOCATE LR(M-l) ,LC(M-1): PRINT " "; 
850 LC(M-1)=LC(M-1)+INT(RND*4+1):IF LC(M-1)>=80 

THEN GOTO 1000 
860 COLOR (M-1):L0CATE LR(M-l) ,LC(M-1): PRINT X$; : 

S0UND(M-1)*50,1 
870 IF M+2<>5 AND M+2<>6 THEN 890 
880 GOTO 720 

890 IF LC(M+2)>80 THEN LC(M+2)=80 
895 LOCATE LR(M+2) ,LC(M+2) : PRINT " " 
900 LC(M+2)=LC(M+2)+INT(RND*4+l):IF LC(M+2)>«80 

THEN GOTO 1000 
910 COLOR (M+2):L0CATE LR(M+2) ,LC(M+2): PRINT I$i 

S0UND(M+2)*50,1 
920 IF LC(M)>80 THEN LC(M)=80 
925 LOCATE LR(M) ,LC(M) rPRINT " " 
930 LC(M)«LC(M)+INT(RND*4+1):IF LC(M)>=80 THEN 

GOTO 1000 
940 COLOR M:LOCATE LR(M) ,LC(M) : PRINT X$;:SOUND 

M*50,l 
950 GOTO 720 
960 CB=0:COLOR 14:L0CATE 18,1: PRINT "THE COMPUTER 

WILL PLACE THE AMOUNT OF "; USING AA$;AM 
970 RF=INT(RND*4+1) 

980 RF=INT(RND*4+1): PRINT: PRINT "ON LANE ";RF;"." 
985 MN(RF)=MN(RF)+AM:AM=0 
990 GOTO 540 

1000 IF LC(I)>80 THEN LC(I)=80 
1005 LOCATE LP/I) ,LC(I) : PRINT " "; 
1010 LC(I)-RC(I)'' 
1020 LP(I)=LP(I)+1:L0CATE PR(I) ,PC(I) :C0L0R 14: 

PRINT LP(I); 
1030 IF LP(I)>=10 THEN 1500 
1040 GOTO 720 

1200 COLOR 14: LOCATE 2, 2: PRINT "LAPS - LANE 1:"; 
1210 LOCATE 3, 2: PRINT "LAPS - LANE 2:"; 
1220 LOCATE 4, 2: PRINT "LAPS - LANE 3:"; 
1230 LOCATE 5, 2: PRINT "LAPS - LANE 4:"; 

1 A O P T7M omAHnt'ej Kof t> o ■»■* 1 o n o 

1250 LOCATE 12, 2: PRINT "LANE 1 "; 

1260 LOCATE 13,2:PRINT "LANE 2 "; 
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1270 LOCATE 14,2:PRINT "LANE 3 "; 

1280 LOCATE 15,2:PRINT "LANE 4 "; 

1290 RETURN 

1300 REM amounts on lanes 

1310 T=l 

1320 FOR 1=1 TO A 

1330 IF LA(I)=T THEN 1350 

1340 NEXT: GOTO 1370 

1350 MN(T)=MN(T)+A(I) 

1360 GOTO 1340 

1370 T=T+1 

1380 IF T>=5 THEN 1400 

1390 GOTO 1320 

1400 RETURN 

1410 REM print amounts 

1420 AA$="$$#, ###.##" 

1430 I=1:FR1=12:FC1=13 

1440 COLOR 14:L0CATE FR1 ,FC1: PRINT USING AA$;MN(I) 

1450 1=1+1 :FR1=FR1+1 

1460 IF I>=5 THEN RETURN 

1470 GOTO 1440 

1500 REM finish 

1510 WW=1 

1520 COLOR 30:L0CATE PR(I) ,PC(I)+10:PRINT "WINNER" 

;:FOR T=l TO 3: SOUND 1000,1: SOUND 800,1: NEXT 
1530 FOR TU=1 TO 1000 
1540 NEXT:COLOR 14 
1560 IF WW>=6 THEN 1580 
1570 WW=WW+1:G0T0 1520 
1580 REM player lane select 
1590 WW=0 
1600 FOR T=l TO A 
1610 IF LA(T)=I THEN 1630 
1620 NEXT:G0T0 1650 
1630 WW=WW+1:T(WW)=T 
1640 GOTO 1620 

1650 FOR 1=1 TO 4:AM=AM+MN(I):MN(I)=0 
1660 NEXT: IF WW=0 THEN 1760 

1670 COLOR 14:L0CATE 12,30:PRINT "WINNER(S) :"; 
1680 WXR=13:WXC=30 
1690 FOR 1=1 TO WW 
1700 LOCATE WXR,WXC:PRINT A$(T(I)); 
1710 IF WW>1 THEN PRINT ","; 
1720 WXC=WXC+5:NEXT 
1725 IF WW=1 THEN 1790 

1730 LOCATE 14, 30: PRINT "EACH WINNER RECEIVES:"; 
1740 LOCATE 15, 30: PRINT USING AA$;AM/WW; 
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1750 AM=0:G0T0 1820 

1760 LOCATE PR(1) ,PC(1)+13: 

1770 PRINT "** NO WINNERS ** "; 

1780 GOTO 1870 

1790 LOCATE 14, 30: PRINT, : 

1800 PRINT "YOU WILL RECEIVE :"; 

1810 GOTO 1740 

1820 REM another 

1830 LOCATE 7,1: PRINT,; 

1840 INPUT "ANOTHER RACE (Y/N)";A$ 

1850 IF A$="N" THEN 2000 

1860 COLOR 7 f 0,0:CLS:ZZ=l:GOTO 360 

1870 FOR TU=1 TO 1200:NEXT 

1880 COLOR 14:L0CATE 19,1 

1890 PRINT "IF ANOTHER RACE IS HELD, THE"; 

1910 PRINT "COMPUTER WILL BET THE MONEY"; 

1930 PRINT "ON A LANE IT SELECTS."; 

1940 CB=1:G0T0 1820 

2000 REM end 

2010 CLS 

2020 PRINT "FAREWELL 'TIL NEXT RACE." 

2030 END 
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Be Prepared for the IBM PC 

1 REM program title: BE PREPARED (PART I) 
5 V$=RIGHT$(TIME$,2): 'use PC clock to seed 
random number generator 

10 V=VAL(V$) 

15 RANDOMIZE V 

20 WIDTH 40: KEY OFF 

25 COLOR 15,11,10:CLS 

30 PRINT "BE PREPARED PART I) 

40 PRINT 

50 PRINT "IF YOU HAVEN'T DONE SO, READ AND" 

60 PRINT "FOLLOW ALL INSTRUCTIONS FOR PLAY." 

70 PRINT "YOU MUST UNDERSTAND EVERYTHING." 

80 PRINT 

90 INPUT "INSTRUCTIONS" ;Q$ 
100 IF MID$(Q$,2,1)<>"E" THEN 400 
110 PRINT 

120 PRINT "THIS GAME TAKES PLACE IN A" 
130 PRINT " DISTANT OUTER SPACE" 
140 PRINT "LOCATION. YOU WILL SEE FOUR" 
150 PRINT "TUBES WITH THE TOP CLOSED AND" 
160 PRINT "THE BOTTOM OPEN FOR ENTRY. THESE" 
170 PRINT "ARE THE PORTS. YOUR VESSEL," 
180 PRINT "REPRESENTED BY AN ASTERISK, WILL" 
190 PRINT "BE LOCATED BELOW THE TUBES. IT" 
200 PRINT "WILL MOVE CONTINUOUSLY FROM LEFT" 
210 PRINT "TO RIGHT. ONE OF THE NUMERAL " 
220 PRINT "KEYS 1 AND 2 WILL PROPEL YOUR" 
230 PRINT "CRAFT INTO A TUBE, BUT YOU MUST" 
250 PRINT 

260 INPUT "PRESS ENTER TO CONTINUE:" ,X$ 
270 CLS 

280 PRINT "GUESS WHICH KEY WILL DO THE JOB." 
290 PRINT "ONLY ONE KEY WILL WORK EACH TURN" 
300 PRINT "AND THE COMPUTER WILL INCREASE" 
310 PRINT "THE NUMBER OF KEYS YOU MUST " 
320 PRINT "CHOOSE BETWEEN EACH CYCLE (I.E.," 
330 PRINT "1 TO 3, THEN 1 TO 4, ETC.)" 
340 PRINT "YOU HAVE TWENTY VESSELS TO BRING" 
345 PRINT "SAFELY TO PORT. EACH VESSEL" 
350 PRINT "HAS A LIMITED AMOUNT OF FUEL." 
360 PRINT "IF YOU UNDERSTAND ALL INSTRUC-" 
370 PRINT "TIONS, PRESS ENTER TO PORT" 
380 PRINT "THE FIRST VESSEL:"; 
390 INPUT X$ 
400 CLS 
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410 REM vessels/begin value 

420 V=20:DS=0:DK=0:VL=2 

430 REM tubes 

440 X=3:Y=13 

450 FOR T=Y TO 1 STEP -1 

460 LOCATE T,X:PRINT CHR$( 219) '.LOCATE T,(X+5): 

PRINT CHR$(219):NEXT 
470 FOR T-X TO X+5 
480 LOCATE 1,T:NEXT 
490 REM do four 
500 X-X-flO 

510 IF X>=43 THEN 530 
520 GOTO 450 
530 REM bottom of ports 
540 W=1:X=3 
550 FOR T=W TO X 

560 LOCATE Y,T: PRINT CHR$(219) :NEXT:IF P=l THEN 600 
570 W=X+6:X=X+10 
580 IF W>=39 THEN X=40:P=1 
590 GOTO 550 
600 REM fuel 
610 F=200 

620 F$="FUEL REMAINING " 
630 XR-16:XC=10 
640 FOR 1=1 TO LEN(F$) 
650 LOCATE XR,XC:PRINT MID$(F$,I,1); 
660 XC=XC+1:G0SUB 1500 
670 NEXT: IF G=l THEN RETURN 
680 QC-XC:QR=XR 
690 LOCATE QR,QC: PRINT F 
700 REM start locale 
710 LR=15:LC=1:V$= !, * M :ZX:=2550:PK=1 
720 M«LC+39:P=INT(RND*VL+1) :R=0 
730 LOCATE LR,LC: PRINT V$; 
740 REM by inkey$ 
750 X$=INKEY$ 
760 IF VAL(X$)=P THEN 900 
770 FOR T=l TO 5: NEXT 
780 LOCATE LR,LC: PRINT " t! ; 
790 IF R=l THEN 810 
800 LOLC+l:G0T0 840 
810 LC=LC~1 
820 IF LC<=M THEN 720 
830 GOTO 850 

840 IF LO=M THEN M=LC-39:R=1:VL=VL+1 
850 F=F-1:IF VL>=9 THEN VL=9 
860 IF F<=0 THEN 1200 
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870 LOCATE QR,QG:PRINT F; :LOCATE QR,QC+5:PRINT 
"TONS"; 

880 IF INT(F/10)=F/10 THEN 1540 

890 GOTO 730 

900 REM port? 

910 J=1:ZX=500:PK=0 

920 LOCATE LR,LC: PRINT " "; 

930 LR=LR-1:IF LR<=1 THEN 1000 

940 LOCATE LR,LC: PRINT V$; 

950 J=J+1:G0T0 1540 

960 DEF SEG=&HB800:IF PEEK((LR-2)*80+2*(LC-l)) 
<>32 THEN 990 

970 GOTO 920 

990 IF J<=2 THEN 1030 
1000 F$= 5 " VESSEL DOCKED SAFELY " 
1010 G=l: GOSUB 630 
1020 DK=DK+1:G0T0 1070 

1030 F$="V ESSEL DESTROYED" 
1040 FOR T=l TO 500: NEXT: LOCATE LR,LC:PRINT " tf ; 
1050 G=1:XR=20:XC=5: GOSUB 640 
1060 DS=DS+1 
1070 GOSUB 1600 

1080 F$=STRING$(32,32):XR=20:XC=5 
1090 GOSUB 640 
1100 V=V-1:G=0 
1110 IF V<=0 THEN 1300 
1120 VUVL+1 
1130 IF VL>=9 THEN VL=9 
1140 GOTO 600 
1200 REM fuel exhausted? 
1210 F$="F UEL EXHAUSTED" 
1220 G=1:XR=20:XC=5 
1230 GOSUB 640 
1240 FOR T=l TO 500:NEXT 
1250 GOTO 1030 
1300 REM all vessels in 
1310 G=1:XX=1 

1320 F$="A LL VESSELS IN " 
1330 XR=16:XC=5:G0SUB 640:G0SUB 1600:XR=XX:XC=5:CLS 
1340 F$="YOU HAVE DOCKED" 
1350 GOSUB 640:PRINT DK; :F$="VESSELS" 
1355 XC-XC+4 

1360 GOSUB 640:XR=XX+1:XX=XX+1:XC=5 
1370 F$="Y0U HAVE DESTROYED" 
1380 GOSUB 640:PRINT DS; :F$="VESSELS" 
1385 XC=XC+3 
1390 GOSUB 640:XR=XX+1:XX=XX+1:XC=5 
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1400 F$= M END OF MISSION... " 

1410 GOSUB 640 

1420 END 

1500 REM sound routine 

1510 SOUND 10*(ASC(MID$(F$,I,l))+10),l:SOUND 32767,1 

1530 RETURN 

1540 REM more sound 

1550 SOUND ZX,1: SOUND 32767,1 

1560 IF PK=1 THEN 1580 

1570 GOTO 960 

1580 IF F<=100 THEN ZX=ZX~100 

1590 GOTO 890 

1600 REM for message loop 

1610 FOR T=l TO 1200:NEXT 

1620 RETURN 
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The Course for the IBM PC 

10 REM program title: THE COURSE 

20 KEY 0FF:C0L0R 7 ,2,3:CLS:WIDTH 40:PRINT TAB(IO); 

30 PRINT ">» THE COURSE <«" 

40 PRINT 

50 INPUT "REQUIRE INSTRUCTIONS" ;X$ 

60 IF X$="N" OR X$="NO" THEN 210 

70 PRINT 

80 PRINT "THE COURSE WILL REQUIRE THAT YOU" 

90 PRINT "USE TOP NOTCH REFLEXES TO CONTROL" 
100 PRINT "YOUR VEHICLE TO A DISTANCE OF" 
110 PRINT "10 LAPS. THE COURSE WILL BE BOTH" 
120 PRINT "STRAIGHT AND WINDING. YOU WILL" 
130 PRINT "CONTROL YOUR VEHICLE WITH THE" 
140 PRINT "LEFT AND RIGHT ARROW KEYS." 
150 PRINT "THE SLIGHTEST CONTACT TO THE" 
160 PRINT "EDGE OF THE TRACK WILL CAUSE" 
170 PRINT "AN ACCIDENT, AND A HIT" 
180 PRINT "ADDED TO YOUR SCORE." 
190 PRINT: PRINT: PRINT "STRIKE A KEY..." 
200 X$=INKEY$:IF X$-"" THEN 200 
210 CLS:T=1:AT=1 

220 INPUT "FIRST NAME OF DRIVER" ;D$ 
225 IF D$="" THEN PRINT:G0T0 220 
230 PRINT D$;" STRIKE A KEY TO BEGIN..." 
240 X$=INKEY$:IF X$="" THEN 240 
245 IF T>=2 THEN CLS:G0T0 260 
250 CLS:DIM CX(26) ,CY(26) 

260 LOCATE 1,1:FRINT "DRIVER: ";D$;:G0SUB 1000 
265 CC=0:LP=0:LL=0:HI=0:REM the course 
270 CX=1940:CY=CX+18:J=219:C=1 
275 C1=CX+6:C2-C1+2:REM the vehicle 
280 KY-0:IF CX<=1 OR C1<=1 THEN 400 
285 IF CC=1 THEN 420 
290 DEF SEG=&HB800:P0KE CX,J:POKE CY,J 
295 CX(C)-CX:CY(C)-CY:REM to blank old course 
300 CX=CX-80:CY=CY-80 
305 G=C+1 

310 DD=2*INT(RND*2+1) 
315 KY$=INKEY$:IF LEN(KY$)=2 THEN KY=ASC(MID$ 

(KY$,2,1)) 
320 IF DD-2 THEN 340 
330 CX=CX+DD-2:CY=CY+DD~2:G0T0 360 
340 DD=-DD 

350 CX=CX+DD:CY=CY+DD 
360 REM check for movement of vehicle 
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370 IF KY=75 THEN 500 

380 IF KY=77 THEN 530 

390 GOTO 280 

400 CC=1:LP=LP+1 

405 IF (LP/10)=.6 THEN LL=LL+1:LP=1 

410 LOCATE 2,1: PRINT "LAPS«";LL; 

415 IF LL>=10 THEN 700 ELSE GOTO 270 

420 DEF SEG=&HB800:P0KE CX(C),32:P0KE CY(C),32 

430 POKE CI, 32: POKE C2,32 

440 IF C2<-156 THEN 290 

450 Cl=Cl-80:C2=C2-80 

460 POKE CI, 204: POKE C2, 185: POKE Cl+l,36:POKE 

C2+1.36 
470 CL=PEEK(Cl~2):CR-PEEK(C2-f2) 
480 IF ABS(CL-fCR)<>64 THEN 600 
485 GOTO 290 

500 REM vehicle movement (left) 
505 DEF SEG=&HB800:P0KE CI, 32: POKE C2, 32: POKE 

C1+1,39:P0KE C2+1.39 
510 C1=C1-2:C2=C2~2 
520 GOTO 280 

530 REM vehicle movement (right) 
535 DEF SEG-&HB800:P0KE Cl,32:POKE C2,32:P0KE 

Cl+l,39:POKE C2+1.39 
540 IF C2<=84 THEN 280 
550 Cl-Cl+2:C2=C2+2 
560 GOTO 280 
600 REM hits to vehicle 
610 HI=HI+1 

620 LOCATE 3,1: PRINT "HITS-"; HI; 
630 GOTO 290 
700 REM finish 

710 LOCATE 4,1: PRINT STRING$(40,32) 
720 IF HI=0 THEN 800 

-70A DOTMrp »»VATT TtTTUMT MAVU TUU'I.TT J'T ADC" 

/ ,w>W X 1\.XU X iWU JJAi/l! J. i ilii.VX4 J.J.1..L4 , 1_JJU , um u-» 

740 PRINT "WITHOUT ERROR. YOU TOOK A" 

750 PRINT "TOTAL OF"; HI; "HITS " 

760 PRINT "TRY AGAIN, ";D$; 
770 INPUT X$ 

780 IF X$="N" OR X$="N0" THEN 1100 
790 AT=AT+1: PRINT: GOTO 830 
800 PRINT "NOT BAD, NO HITS AT ALL" 
810 PRINT "THINK YOU MIGHT WANT TO" 
820 GOTO 760 
...830....T.(.T..)-HI.:.REM best score 
840 I~1:Z=0 
850 TR0N:IF T(I)<=T(I+1)THEN 8800K 
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860 YS=T(I):T(I)=T(I+1):T(I+1)=YS 

870 Z=l 

880 1=1+1: IF I>=T THEN 900 

890 GOTO 850 

900 IF Z=l THEN 840 

910 BS=T(1) 

920 T*T+1:IF T>=5 THEN BS=T(1):T«3 

930 PRINT 

940 PRINT: GOTO 230 

1000 REM message 

1010 IF T<=2 THEN 1040 

1020 LOCATE 1,28:PRINT "BEST SCORE: ";BS; 

1030 LOCATE 2, 28: PRINT "ATTEMPTS: ";AT; 

1040 RETURN 

1100 REM end 

1110 CLS 

1120 PRINT "END OF PROGRAM RUN..." 

1130 END 
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Trapped for the IBM PC 

5 V$=RIGHT$(TIME$,2): 'use PC clock to seed 
random number generator 

10 V=VAL(V$) 

15 RANDOMIZE V 

20 REM program title <TRAPPED> 

25 CLS:KEY 0FF:CLEAR 100:DIM AA(12) ,PI(12) ,I$(12) 
: WIDTH 40 

30 COLOR 1,0: PRINT TAB(15)CHR$(174); :C0L0R 20, 
0: PRINT "TRAPPED' 1 ;: COLOR 1,0: PRINT CHR$(175) 

40 COLOR 2,0: PRINT: INPUT "LIST INSTRUCTIONS" ;W$ 

50 IF W$="Y" OR W$="YES" THEN GOSUB 3500 

60 CLS: GOSUB 3300:TU=1 

70 QQ=1:MM=0:CR=0 

90 S1=440:S2=S1+50:CC-0:BR=0:TP=10000! :TR=TP 
100 REM border graphics 
110 X-1920:Y=X-f78:C=219:U=0 
120 DEF SEG=&HB800:F0R I=X TO Y STEP 2: POKE I, 

222:P0KE (I+l),2 
130 POKE 1-1920, 222 :P0KE (1-1919) f 2:NEXT 
140 FOR 1=2 TO 22 
150 POKE (1*80), 222: POKE ((I*80)+l) ,2:P0KE 

(1*80+78), 222: POKE ((I*80)+79) ,2:NEXT :GOSUB 3450 
160 COLOR 9,0 'rem inner graphics 
170 IN=X~160 

180 Rr:IN+2*INT(RND*39+l):Rl=R:L=2*INT(RND*2+l) 
190 FOR I=IN TO R STEP 2: POKE I,C 
195 IF L=l AND U<=3 THEN POKE 1-80, C 
198 NEXT 

200 R2=2*INT(RND*7+1):R3=R2+2*INT(RND*10+1):G0T0 500 
210 FOR I-R1+R2 TO R1+R3 STEP 2 
220 POKE I,C:NEXT 
230 GOTO 560 
240 U=U+1 

250 IF U<>5 THEN 180 
260 REM graphics from right side 
270 FOR J=l TO INT(RND*10+1) 
280 FOR 1=0 TO 4 
290 IF R(I)=0 THEN 310 
300 POKE R(I),C:R(I)=R(I)-2 
310 NEXT I, J 
320 REM start position 
330 P=2*INT(RND*842+79) 

350 IF PEEK(P)<>32 OR PEEK(P+4)<>32 THEN 330 
355 IF (PEEK(P+80)+PEEK(P~80))=438 THEN 330 
360 CP=P+4:P0KE P, 220: POKE (P+l) , 14: POKE CP, 223: POKE 
(CP+1),14 
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370 REM movement of computer piece 
380 S3=210:S4-880 

390 IF PEEK(P~-80)=32 THEN A=1:G0T0 440 
395 SOUND SI, 3: SOUND S2,3: 
400 IF PEEK(P+80)=32 THEN A=2:G0T0 440 
410 IF PEEK(P-4)=32 THEN A=3:G0T0 440 
420 IF PEEK(P-f4)=32 THEN A=4:G0T0 440 
430 GOTO 810 

440 POKE P,32:IF PEEK(CP)=32 THEN 1700 
442 FOR H=l TO 100:X$=INKEY$:IF LEN(X$)=2 THEN 900: 
NEXT 

445 GOTO 1100 

450 ON A GOTO 460,470,480,490 

460 P=P~80:P0KE P, 220: POKE P+l , 12:MM=0:GOTO 710 

470 P=P+80:P0KE P,220:P0KE P+1,12:MM=0:G0T0 400 

480 P=P™4:P0KE P,220:P0KE P+1,12:G0T0 760 

490 P=P+4:P0KE P, 2 20: POKE P+l, 12: GOTO 420 

500 REM within limits (board graphics) 

510 IF ABS((R1+R3)-IN)>=X THEN 200 

520 REM gap too small 

530 IF ABS((R1+R2)-R)<=4 THEN 200 

540 IF R3<=9 THEN 200 

550 GOTO 210 

560 REM poke more to right 

570 IF ABS((IN-78)-(Rl+R3))>=10 THEN 600 

580 X=X-240:IN=X-160:POKE IN,C 

590 GOTO 240 

600 R4=2*INT(RND*8+1):IF R4<=6 THEN 600 

610 R4-R4+R1+R3 

620 R5=R4+2*INT(RND*10+1) 

630 IF ABS(R5-R4)<=2 THEN 620 

640 IF ABS(R5-IN)>=62 THEN 680 

650 FOR I-R4 TO R5 STEP 2: POKE I,C 

660 IF L=l AND U<>4 THEN POKE (1-80), C 

670 NEXT 

680 REM variables (right side graphics) 

690 FF=IN-76:R(U)=FF:N(U)=ABS(FF-R5) 

700 GOTO 580 

710 REM down/up~search left/right 

720 IF PEEK(P-4)=32 THEN 410 

730 IF PEEK(P+4)=32 THEN 420 

740 IF A=l THEN 390 

750 GOTO 400 

760 REM left/right search down/up 

770 IF PEEK(P-80)=32 THEN 390 

780 IF PEEK(P+80)=32 THEN 400 

790 IF A-3 THEN 410 

800 GOTO 420 
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810 REM trapped(counter) 

815 A(QQ)=A 

820 IF A(QQ)=A(QQ-1) THEN 880 

830 IF MM>=8 THEN 1240 

840 IF MM>=4 THEN S3=S3+10:CR=CR+10 

860 QQ=QQ+1:IF QQ>=3 THEN QQ=1 

870 GOTO 390 

880 IF PEEK(P+4)=223 OR PEEK(P-4)=223 THEN MM=MM+1 

890 GOTO 830 

900 REM user piece/move per key 

910 FOR H-l TO 100:XX$=INKEY$:IF LEN(XX$)=2 THEN 

X$=MID$(XX$,2,1):NEXT 
920 IF ASC(X$)-80 THEN 970 
930 IF ASC(X$)=72 THEN 990 
940 IF ASC(X$>77 THEN 1010 
950 IF ASC(X$)=75 THEN 1030 
960 CC=0:G0T0 450 
970 IF PEEK(CP+80)<>32 THEN 960 
980 POKE CP,32:CP=CP+80:G0T0 1050 
990 IF PEEK(CP-80)<>32 THEN 960 
1000 POKE CP,32:CP=CP-80:G0T0 1050 
1010 IF PEEK(CP+4)<>32 THEN 960 
1020 POKE CP,32:CP=CP+4:GOTO 1050 
1030 IF PEEK(CP~4)<>32 THEN 960 
1040 POKE CP,32:CP=CP~4 
1050 POKE CP, 2 23: POKE CP+1,14:TP=TP-1 
1060 SOUND SI, 3: SOUND S2,3 
1070 REM users moves(counter) 
1080 CC=CC+1:IF CO-10 THEN COO: GOTO 450 
1090 GOTO 900 

1100 REM sound/computer piece 
1110 REM charge rate (diminish by plus) 
1120 SOUND S1,3:S0UND S4,3 
1130 CR=CR4-1 

1140 IF CR>=100 THEN GOSUB 1450:G0T0 1180 
1150 IF CR>=99 THEN S4=S4-flO 
1170 GOTO 450 

1180 REM recharge computer piece 
1190 POKE P,220:P0KE P+1,12:F0R C=l TO ((S4*.2) 
~100)STEP 50 

1200 SOUND 100*C,3:S0UND (S2-100),3 

1210 NEXT :CR=0:S4-880: POKE P,32 

1220 GOSUB 1510:G0SUB 3450:G0T0 450 

1240 REM trapped? 

1250 REM check charge rate first 

1260 IF CR>-925 THEN 1280 

1270 GOTO 1290 
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1280 CR=1000:G0T0 1370 
1290 REM trapped computer piece 
1300 L=0 

1310 POKE P, 32: FOR TI=1 TO 100: NEXT 
1320 POKE R, 220: POKE R+l,12:FOR TI=1 TO 50 
1330 SOUND SI: SOUND S2 
1340 NEXT 

1350 L=L+1:IF L<=2 THEN 1310 
1360 GOTO 1600 

1370 GOSUB 1450: POKE P,32:MM=0 
1380 P=P+6 
1390 GOTO 450 
1450 REM message 
1460 MG=20:M$-"RECHARGING" 
1470 FOR 1=1 TO LEN(M$) 

1480 POKE MG,ASC(MID$(M$,I,1)):P0KE MG+1,132 
1490 MG=MG+2:NEXT 
1500 POKE MG, 32: RETURN 
1510 MG=20 

1520 FOR 1=1 TO LEN(M$) 
1530 POKE MG,222:POKE MG+1,2 
1540 MG=MG+2:NEXT 
1550 POKE MG, 222: RETURN 
1600 REM message (trapped) 
1610 MG=20 

1620 M$="**TRAPPED**" 
1630 GOSUB 1470 
1640 GOTO 1910 
1700 REM user "burned' 1 
1710 MG=20 

1720 M$="* USER BURNED *" 
1730 GOSUB 1470 

1740 REM leave user position as-is 
1750 L=0:MM=0 

1760 POKE CP,32:F0R TI=1 TO 100: NEXT 
1770 POKE CP,223:P0KE CP+1,14:F0R TI=1 TO 5 
1780 SOUND S1,3:S0UND (Sl-180),3 
1790 NEXT: IF L<=1 THEN L=L+1:G0T0 1760 
1800 BR=BR+1:G0SUB 1510:G0SUB 3450 
1810 IF BR>=6 THEN GOSUB 1830:G0T0 1870 
1820 GOTO 445 
1830 L=0 

1840 FOR 1=1 TO 45 STEP 9 
1850 SOUND S2, 3: SOUND (1*100), 3 
1860 NEXT :CLS: RETURN 
1870 PRINT 

1880 COLOR 2,0:PRINT:PRINT "YOU'VE BEEN BURNED "; 
BR;" TIMES" 
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1890 PRINT "SUCKER! !!";:TP=0 

1900 PRINT "YOU'RE OUT OF THE GAME. . ."; :GOTO 2000 

1910 REM trapped 

1920 GOSUB 1830 

1930 PRINT "YA GOT ME TRAPPED, TURKEY!!!" 

1940 PRINT "YOUR TOTAL POINTS NOW EQUAL "; 

1950 PRINT TP 

1960 PRINT "YOU MADE A TOTAL OF ";TR-TP; !! MOVES" 

1970 PRINT "BEFORE TRAPPING ME " 

1980 FOR H-l TO 2:S0UND SI, 3: SOUND (Sl*2) ,3:NEXT 

2000 REM player advance 

2010 PI(TU)=TP 

2020 IF TU=N THEN 2100 

2030 TU-TU+1 

2040 PRINT "PRESS ENTER WHEN READY, n ;I$(TU); 

2050 INPUT W$:CLS 

2060 GOTO 70 

2070 REM all played 

2110 REM sort numbers/players 

2120 IF N=l THEN 2220 

2130 F=0:AA=1 

2140 IF PI(AA)>=PI(AA+1) THEN 2190 

2150 P=PI(AA):PI(AA)=PI(AA+1) 

2160 PI(AA+1)=P:I$=I$(AA) 

2170 I$(AA)=I$(AA+1):I$(AA+1)=I$ 

2180 F=l 

2190 IF AA<N THEN AA=AA+1:G0T0 2140 

2200 IF F=l THEN 2130 

2210 GOTO 2260 

2220 PRINT "YOU'VE PLAYED BY YOURSELF, AGAINST" 

2230 PRINT "THE COMPUTER. YOU WERE BURNED ";BR 

2240 PRINT "TIMES. FINAL TRAPPING SCORE: ";PI(TU) 

2250 GOTO 2330 

2260 1=1 

2270 PRINT "BEST TRAPPER ";I$(I) 

2280 PRINT "TOTAL P0INTS=";PI(I) 

2290 PRINT "FOLLOWING ";I$(I) 

2300 FOR 1=2 TO N: PRINT I$(I) 

2310 PRINT " WITH A SCORE OF: "; 

2320 PRINT PI(I) 

2330 FOR TI=1 TO 1000:NEXT TI, I: PRINT 

2340 PRINT "END OF PROGRAM RUN " 

2350 FOR 1=1 TO 100:SOUND S1,3:S0UND ((Sl-50)+ 

(1*10)) ,3 
2360 NEXT: PRINT 

2370 PRINT "UNLESS ALL WANT TO PLAY AGAIN???" 
2380 PRINT "IF SO, ENTER <RUN> (THE <F1> KEY)." 
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2390 PRINT:F0R TI=1 TO 1500:NEXT 

2400 PRINT "END" 

2410 END 

3300 REM player numbers/names 

3310 PRINT "ENTER THE NUMBER OF PLAYERS;"; 

3320 INPUT N 

3330 IF N<=0 OR N>«11 THEN 3310 

3340 PRINT "NOW ENTER THE ";N;" PLAYERS'" 

3350 PRINT "FIRST NAMES" 

3360 FOR 1=1 TO N 

3370 INPUT I$(I):NEXT 

3380 PRINT 

3390 PRINT "CURRENT PLAYER'S NAME WILL BE" 

3400 PRINT "PRINTED AT THE BOTTOM OF" 

3410 PRINT "GAME BOARD." 

3420 FOR TI-1 TO 1200:NEXT 

3430 CLS 

3440 RETURN 

3450 REM player 

3460 DEF SEG=&HB800:MG=1920:MF=MG 

3470 FOR 1=1 TO LEN(I$(TU)) 

3480 POKE MG.ASC(MID$(I$(TU),I I 1)):P0KE MG+1,142: 

MG=MG+2 
3485 NEXT:P0KE MG,32:F0R H-l TO 500:NEXT H 
3490 MG=MF:F0R 1=1 TO LEN(I$(TU)) :P0KE MG+1,14 

:MG=MG+2:NEXT IrPOKE MG, 32: RETURN 
3500 REM instructions 

3510 CLS:COLOR 2,0:PRINT "UP TO 10 PLAYERS CAN TRY" 
3520 PRINT "TO OUTWIT THE COMPUTER AND 
3530 PRINT "MANEUVER IT'S PIECE INTO A SITUATION" 
3540 PRINT "WHERE IT WILL BECOME TRAPPED." 
3550 PRINT "THE COMPUTER'S PIECE WILL BE A" 
3560 PRINT "BLOCK LIKE THIS: ";:CQL0R 12,0:PRINT 

CHR$( 220);: COLOR 2,0: PRINT " YOURS" 
3570 PRINT "WILL LOOK LIKE THIS: ";:COLOR 14,0: 

PRINT CHR$(223);:COLOR 2,0 
3580 PRINT "THE COMPUTER WILL MOVE" 
3590 PRINT "ITS PIECE ALL AROUND THE GAME" 
3600 PRINT "BOARD, CHANGING DIRECTION WHEN IT" 
3610 PRINT "SENSES AN OBSTACLE. YOU WILL" 
3620 PRINT "FOLLOW THE COMPUTER'S PIECE OR" 
3630 PRINT "MANEUVER IT TO A SECTION" 
3640 PRINT "OF THE GAME BOARD WHERE IT WILL BE" 
3650 PRINT:PRINT "PRESS ENTER TO CONTINUE" ;: INPUT 

W$:CLS 
3660 PRINT "TRAPPED, MEANING THAT IT CAN ONLY MOVE" 
3670 PRINT "LEFT AND RIGHT. THE COMPUTER'S PIECE" 
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3680 PRINT "WILL CONTAIN A ' CHARGE \ IF YOU" 

3690 PRINT "SIMULTANEOUSLY LAND ON THE SAME SPOT" 

3700 PRINT "YOU T LL GET 'BURNED'. " 

3710 PRINT "SIX BURNS AND YOU'RE" 

3720 PRINT "OUT OF THE GAME. YOU WILL MOVE" 

3730 PRINT "YOUR PIECE USING ALL FOUR ARROW" 

3740 PRINT "KEYS. WHEN YOU MOVE, THE COMPUTER" 

3750 PRINT "WILL BLANK IT f S PIECE. YOU" 

3760 PRINT "WILL BE ALLOWED ONLY 10 CON-" 

3770 PRINT "SECUTIVE MOVES AT ONE TIME." 

3780 PRINT "ANY TIME YOU WISH TO MOVE YOUR" 

3790 PRINT "PIECE, HOLD DOWN ANY ARROW KEY" 

3800 PRINT "AND PRESS THE <SPACE BAR>." 

3810 PRINT:INPUT "PRESS ENTER TO CONTINUE", W$ 

3820 CLS: PRINT "POINTS WILL BE DETERMINED BY HOW" 

3830 PRINT "MANY MOVES IT TAKES THE USER" 

3840 PRINT "TO TRAP THE COMPUTER'S PIECE." 

3850 PRINT "REMEMBER, TO TRAP THE COMPUTER'S" 

3860 PRINT "PIECE, ONLY ALLOW IT TO MOVE" 

3870 PRINT "LEFT AND RIGHT." 

3880 PRINT:INPUT "PRESS ENTER TO START", W$ 

3890 CLS: RETURN 
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Rainy Daze for the IBM PC 

1 REM program title: RAINY DAZE 
5 V$=RIGHT$(TIME$,2): 'use PC clock to seed 
random number generator 

10 V=VAL(V$) 

15 RANDOMIZE V 

20 CLS:WIDTH 40:KEY OFF 

30 INPUT "INSTRUCTIONS" ;A$ 

40 INPUT "PLAYERS" ;P: IF P=0 THEN 40 

50 PRINT "THE" ;P; "PLAYERS 'INITIALS:" 

60 IF P>»11 THEN 20 ELSE FOR 1=1 TO P 

70 INPUT N$(I):NEXT 

80 IF A$<>"Y" AND A$<>"YES" THEN 340 

90 REM instructions 
100 PRINT "THIS PROGRAM IS DESIGNED TO" 
110 PRINT "HELP YOU THROUGH YOUR WORST" 
120 PRINT "DAYS, BY MAKING THEM WORSE! !" 
130 PRINT "ACTUALLY, THIS PROGRAM WILL" 
140 PRINT "TEST YOUR ABILITY TO FOLLOW" 
150 PRINT "NUMBERS, SOMETIMES IN SEQUENCE." 
160 PRINT "THE NUMERALS 1 THROUGH 660 WILL" 
170 PRINT "RACE ACROSS AND FILL THE VIDEO." 
180 PRINT "WHEN A NUMERAL APPEARS THAT IS" 
190 PRINT "NOT SUPPOSED TO BE THERE, HOLD" 
200 PRINT "THE <CTRL> KEY FOR A SHORT" 
210 PRINT "TIME UNTIL THAT NUMERAL IS" 
220 PRINT "BLOCKED OUT." 
230 PRINT 
240 PRINT 

250 INPUT "ENTER" ;X$ 
260 CLS 

270 PRINT "POINTS WILL BE GIVEN ON THE BASIS" 
280 PRINT "OF HOW MANY OUT-OF-SEQUENCE NUMERALS" 
290 PRINT "YOU HAVE DETECTED AT THE END OF" 
300 PRINT "THE COUNT, 660." 

310 PRINT "REMEMBER TO KEEP GOOD EYE CONTACT " 
320 PRINT "WITH THE SCREEN. . ,":PRINT 
340 1=1 

350 IF P=l THEN 390 

360 PRINT N$(I);", YOU WILL NOW PLAY:" 
370 INPUT "PRESS ENTER, PLEASE:", X$ 
380 GOTO 410 

390 PRINT "WHEN READY, ";N$(P);'\ PRESS" 
400 INPUT "THE ENTER KEY: f \X$ 
410 CLS:N=0:N1=0:TT=500:DEF SEG=&H40:P0KE &H17,0 
420 AR=1:AC=1:AB=AC:M=30:L=2:G=0 
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430 DEF SEG=&H40:K=PEEK(&H17):G0T0 550 

440 LOCATE AR, AC: PRINT N; 

450 FOR T=l TO TT+TT 

460 NEXT:AC=AC+5 

470 IF AO=M THEN 490 

480 GOTO 430 

490 AR=L : AC=AB : L=L+ 1 : TT-TT- 1 5 : G=0 

500 IF L>=24 THEN 520 

510 GOTO 430 

520 FOR T=l TO 1000:NEXT 

530 CLS 

540 GOTO 420 

550 REM change or leave 

560 IF K=4 THEN NJ=1:G0T0 690 

570 N=N+1 

580 N1=N1+1:IF Nl<=2 THEN 610 

590 J»INT(RND*2):IF G«l THEN J-0:N=N1 

600 IF J=l THEN N=N+1:G=1 

610 IF K=0 AND ABS(N-N1)<>0 THEN Y=Y+1 

620 IF NJ=1 THEN NJ=0:G0T0 640 

630 IF Nl>=661 THEN 800 ELSE GOTO 440 

640 N1=N1+1 

645 IF AC-5<=0 THEN LOCATE AR-1 ,40-AC-5: PRINT 

STRING$(5,143);:G0T0 660 
650 LOCATE AR.AC-5: PRINT STRING$(5, 143) ; 
660 REM pause before cont. 
670 FOR T=l TO 200: NEXT :K=0 
680 GOTO 440 

690 IF ABS(N=N1)=0 THEN 710 
700 Y=Y-1:G0T0 720 
710 Y=Y+1 

720 DEF SEG=&HB800:Al=PEEK((AR-l)*80+2*(AC-7)) 
730 A2=PEEK((AR-l)*80+2*(AC-9)) 
740 IF Al=143 AND A2=143 THEN 760 
750 GOTO 620 
760 CLS:Y=Y+2 

770 PRINT M QUIT HOLDING DOWN THE <CTRL> M 
780 PRINT M KEY!! LET GO, YOU MANIAC !" 
790 FOR T=l TO 1200: NEXT: CLS: GOTO 620 
800 REM player advance 
810 YY(I)-Y:Y=0:CLS 
820 1=1+1 

830 IF I>P THEN N1=N1-1:G0T0 850 
840 GOTO 360 
850 REM final 

860 PRINT "PLAYERS AND THEIR POINTS" 
870 PRINT "ARE AS FOLLOWS:" 
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880 FOR 1=1 TO P 

890 PRINT N$(I); ,! IDENTIFIED "; 

900 IF YY(I)=0 THEN PRINT "ALL NUMERALS .": GOTO 930 

910 IF YY(I)<0 THEN YY(I)=-YY(I) 

920 PRINT N1-YY(I); ,! NUMERALS." 

930 NEXT 

940 PRINT 

950 PRINT "END OF PROGRAM." 

960 END 
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General Store for the IBM PC 

1 REM program title: general store 
3 CLEAR 500 

5 V$=RIGHT$(TIME$,2): 'use PC clock to seed 
random number generator 
10 V=VAL(V$) 
15 RANDOMIZE V 

20 DEF SEG=&HB800: WIDTH 40:CLS:PRINT TAB(IO); 
30 PRINT "GENERAL STORE" :R$="NEXT " 
40 DIM N$(15),I$(31),I(31) 
50 DIM L(31),PR(31),TP(15):REM instructions 
60 PRINT "YOUR INSTRUCTIONS ARE SIMPLE AND" 
70 PRINT "STRAIGHT-FORWARD: I WILL GIVE" 
80 PRINT "YOU A LIST OF DIFFERENT ITEMS" 
90 PRINT "AND THEIR PRICES. YOU IN TURN" 
100 PRINT "WILL ENTER THE TOTAL PRICE OF ALL THE" 
110 PRINT "ITEMS. THAT IS, IF I SAY $2.50," 
120 PRINT "MILK, AND THEN SAY $0.80 BREAD M 
130 PRINT "YOU MUST THEN ENTER THE TOTAL" 
140 PRINT "OF $2.50 + $0.80 ($3.30). ALL" 
150 PRINT "OF YOUR ENTRIES WILL BE THROUGH" 
160 PRINT "THE COMPUTER'S 'INKEY$' FUNCTION." 
170 PRINT "DON'T PRESS <ENTER> AND DON'T ENTER" 
180 PRINT "THE DOLLAR SIGN.": PRINT: PR INT "STRIKE 

A KEY TO CONTINUE" 
190 GOSUB 3000:CLS:G$="##,###" 
200 PRINT "ENTER ONLY THE NUMBERS AND THE" 
210 PRINT "DECIMALS. AFTER 10 ITEMS WE WILL" 
220 PRINT "TAKE A SHORT BREAK, THEN I WILL" 
230 PRINT "GIVE YOU 10 MORE. WE WILL STOP" 
240 PRINT "ONLY AFTER 30 ITEMS HAVE BEEN" 
250 PRINT "TOTALLED. YOUR POINTS WILL BE" 
260 PRINT "DETERMINED BY THE ACCURACY OF YOUR" 
270 PRINT "TOTAL. IF CORRECT, THE TOTAL WILL BE" 
280 PRINT "YOUR POINTS. IF INCORRECT, ALL ENTRIES" 
290 PRINT "MISSED WILL BE SUBTRACTED FROM YOUR TO-" 
300 PRINT "TAL. YOU WILL HAVE A TIME LIMIT IN" 
310 PRINT "WHICH TO ENTER THE TOTAL, SO LAY" 
320 PRINT "DOWN THE PENCIL AND THE CALCULATOR!" 
340 REM begin 

350 PRINT "STRIKE A KEY TO BEGIN" 
360 GOSUB 3000 :CLS 

370 INPUT "HOW MANY PLAYERS (1-10)";P 
380 IF P<1 OR P>10 THEN 370 
390 PRINT "ENTER" ;P; "PLAYERS' FIRST NAMES:" 
400 REM names 
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410 AP=220:F0R 1=1 TO P 

420 INPUT N$(I):N(I)-I:NEXT:N-l:AR=3:AC3-30 

425 AQ=AP+80:IF P=l THEN Y=1:N=2:G0T0 470 

430 PRINT "I WILL SELECT EACH PLAYER IN" 

440 PRINT "A RANDOM FASHION. THERE WILL" 

450 PRINT "BE NO SET ORDER OF PLAYERS." 

460 GOSUB 2800:PRINT ! player 

470 IF EE=1 THEN 1530 f final 

480 Q$=N$(Y):TA=0:JI=0 

490 PRINT Q$;" WILL NOW PLAY:" 

500 PRINT "PRESS THE ENTER KEY TO BEGIN"; 

510 INPUT X$: PRINT 

520 CLS: PRINT "HOW FAST IS YOUR ADDITION," 

530 PRINT Q$ ;"???" 

540 REM read all items/prices 

550 FOR 1=1 TO 30:READ I$(I):L(I)=I:NEXT 

560 FOR 1=1 TO 30:READ PR(I) :NEXT:G0T0 2500 

570 D=I-1:DD=(D/3):U=1:D$="$##.##":F$="$" 

580 REM select items randomly 

590 IF U>DD THEN PRINT: PRINT: GOTO 1100 

600 X=INT(RND*30+1) 

610 IF L(X)=0 THEN 600 'used 

620 T=X:PR=PR(T):T$=I$(T) 

625 IF U=l THEN YU=PR 

630 TA=TA*PR ! total amount/current item 

640 TA$=STR$(TA) ! total to string 

645 IF U=l THEN GOSUB 2900 

650 IF U=l THEN CLS ELSE IF U>1 THEN 670 

660 PRINT TAB(1)"PRICE";TAB(12)"ITEMS"; 

665 PRINT TAB(30)"PRICES"; 

670 PRINT TAB(l) USING D$;PR; 

680 PRINT TAB(12);T$ 

690 IF U<=1 THEN 710 

700 RR=1 'continue print/entries 

710 L(X)=0:U=U+1:KK=0:NE=1 

720 IF RROl THEN 580 

725 LOCATE AR, AC: PRINT F$ 

730 X$=INKEY$:IF KK<-15 AND X$<>"" THEN 1040 

735 IF X$="." THEN 880 

740 IF X$="" THEN 760 

750 GOTO 800 

760 KK=KK+1 ! time expired? 

770 IF KK>=400 THEN W$="":G0T0 1000 

780 POKE AP, 220: GOTO 730 

800 REM entry 

810 POKE AP,ASC(X$):TY(NE)=VAL(X$) 

820 AP=AP-i-2 'poke location 
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830 NE=NE+1 'number entry 

840 IF NE=LEN(TA$) THEN 860 

850 GOTO 730 

860 GOTO 910 'all entries in 

880 REM decimal 

890 POKE AP,ASC(X$) 

900 TY(NE)=1000:GOTO 820 

910 REM compile entries 

920 V=NE-1:IF V=9 THEN V=10 

930 FOR 1=1 TO V 

940 IF TY(I)=1000 THEN 970 

950 W$=W$+STR$(TY(I)) 

960 TY(I)=0:NEXT:GOT0 990 

970 W$=W$+"." 

980 GOTO 960 

990 W=VAL(W$):W$=STR$(W) 
1000 IF W$OTA$ THEN PI-PI+PR: JI=JI+1 
1005 IF U=3 AND JIOO THEN PI-PI+PR:JI»JI+1 
1008 IF PEEK(AP)=220 THEN POKE AP,32 
1010 POKE AP+2,32:W$="":AR=AR+1 
1020 AP=AQ:AQ=AQ+80 
1030 GOTO 590 'another item 
1040 REM slow down a little 
1050 POKE AP,32 
1060 GOTO 730 

1100 REM points/player advance 
1110 IF PIOO THEN 1200 
1120 FOR 1=1 TO LEN(TA$) 
1 130 IF MID$(TA$,I,I)="." THEN 1150 
1140 K$=K$+MID$(TA$,I,1) 
1150 NEXT 
1160 K=VAL(K$) 
1170 GOSUB 1430 
1180 TP(Y)=TP(Y)+K 
1190 GOTO 1320 
1200 REM missed items 
1210 TA$=STR$(PI):F0R 1=1 TO LEN(TA$) 
1220 IF MID$(TA$,I,1)=V THEN 1240 
1230 K$=K$+MID$(TA$,I,1) 
1240 NEXT:K=VAL(K$):GOSUB 1430 
1250 TP(Y)=TP(Y)-K 

1260 PRINT "YOU HAVE MISSED TOTALS ON ft ;JI 
1270 PRINT "ITEMS, ";Q$;". THESE ITEMS CAME" 
1280 PRINT "TO A TOTAL OF $";TA$;". YOU ARE" 
1290 PRINT "MINUS THAT AMOUNT. YOUR SCORE" 
1300 PRINT "IS NOW ";USING G$;TP(Y) 
1310 GOTO 1350 
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1320 PRINT "YOU HAVE SUCCESSFULLY ENTERED 1 ' 

1330 PRINT "ALL TOTALS, ";Q$;". YOUR POINTS" 

1340 PRINT "ARE NOW: ";USING G$;TP(Y) 

1350 K=0:JI=0:PI-0:TA$="":K$="" 

1360 U=1:D1=D1+10:IF Dl=20 THEN R$="LAST" 

1370 AP=220 : AQ=AP+80 : AR=3 : AC=30 : RR=0 : PRINT 

1380 IF Dl>=30 THEN 1500 

1390 PRINT "TAKE A SHORT BREAK, THEN WE ! LL" 

1400 PRINT "ATTEMPT THE ";R$;" SET OF ITEMS." 

1410 FOR 1=1 TO 5000: NEXT: PRINT 

1420 GOTO 580 

1430 REM amount times 10 

1440 IF MID$(TA$,LEN(TA$)-1,1)="." THEN 1480 

1450 IF LEN(TA$)=2 OR LEN(TA$)=3 THEN 1470 

1460 RETURN 

1470 K=K*100:G0T0 1460 

1480 K=K*10 

1490 GOTO 1460 

1500 REM another player 

1510 PRINT: PRINT: RESTORE 

1520 D1=0:R$="NEXT":G0T0 460 

1530 REM high point 

1535 IF P=l THEN TP=TP(1) :GOTO 1720 

1540 MM=0:VV=1:N=N-1 

1550 IF TP(VV)>-TP(VV+1) THEN 1590 

1560 TP=TP(VV):TP(VV)=TP(VV"fl) 

1570 TP(VV+1)=TP:N$=N$(VV) 

1580 N$(VV)=N$(VV+1):N$(VV+1)=N$:MM=1 

1590 IF VV+1>=N THEN 1600 ! final 

1595 VV=VV+1:G0T0 1550 

1600 REM mm=l— not in order 

1610 IF MM-1 THEN 1540 

1650 REM points compiled^ final) 

1700 REM print results 

1710 PRINT "ALL HAVE PLAYED..." 

1720 PRINT "STRIKE A KEY FOR RESULTS ON SCORE" 

1730 GOSUB 3000 

1740 CLS:L=1 

1750 REM single player 

1760 IF P=l THEN 1850 

1770 PRINT "THE TOP WINNER: ";N$(I) 

1780 PRINT "WITH A FINAL POINT SCORE OF: "; 

1790 PRINT USING G$;TP(I) 

1800 PRINT "OTHER PLAYERS AND SCORES:" 

1810 FOR X=I+1 TO P 

1820 PRINT N$(X);" HAD: ";USING G$;TP(X) 

1830 NEXT 
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1840 GOTO 1880 

1850 PRINT Q$;" YOUR TOTAL (FINAL) POINTS" 

1860 PRINT "FOR GENERAL STORE: "; 

1870 PRINT USING G$;TP 

1880 PRINT 

1890 PRINT "END OF PROGRAM RUN." 

1900 END 

2500 REM inflation/deflation 

2510 FOR 1=1 TO 30 

2520 DE»INT(RND*10*1) :DF=CSNG(DE/10) 

2530 DG=INT(RND*2) 

2540 IF DG=2 THEN 2590 

2550 REM inflation 

2560 PR(I)=PR(I)+DF 

2570 NEXT 

2580 GOTO 570 

2590 REM deflation 

2600 PR(I)=PR(I)»DF 

2610 IF PR(I)<=0 THEN 2560 

2620 GOTO 2570 

2800 REM random player 

2810 IF N>P THEN EE=1: RETURN 

2820 Q=INT(RND*P+1) 

2830 IF N(Q)=0 THEN 2820 

2840 Y=Q:N(Q)=0 

2850 N=N+1: RETURN 

2900 REM extra message 

2910 PRINT 

2920 PRINT "ADD ALL ITEMS TOGETHER" 

2930 PRINT "BEFORE INPUTTING AMOUNT." 

2940 IF Dl>=10 THEN 2970 

2950 FOR TL=1 TO 2800: NEXT 

2960 CLS: RETURN 

2970 PRINT "START WITH PREVIOUS TOTAL." 

2980 GOTO 2950 

3000 REM INKEY$ 

3010 X$=INKEY$ 

3020 IF X$=""THEN 3010 

3030 RETURN 

4000 REM data/price — item combined 

4010 DATA MILK, BREAD, MEAT 

4020 DATA MEAT, MEAT, FISH 

4030 DATA CANDY, CANDY, CANDY 

4040 DATA VEGETABLES, VEGETABLES 

4050 DATA POULTRY , POULTRY 

4060 DATA LETTUCE, ONIONS 

4070 DATA SPINACH, CIGARETTES 

4080 DATA CIGARS, BACON 
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4090 DATA TABLETS ( PAPER ), PENS 

4100 DATA BATTERIES, BATTERIES 

4110 DATA FURNITURE POLISH 

4120 DATA CARPET CLEANER 

4130 DATA HAND SOAP, HAND SOAP 

4140 DATA CRACKERS, MEATS 

4150 DATA SODAS(CASE) 

4160 REM prices of items 

4170 DATA 2.30,0.89,1.98,3.35,5.50,3.65 

4180 DATA 0.35,2.05,0.54,0.39,0.45,3.44 

4190 DATA 1.99,0.59,1.01,0.79,7.05,5.74 

4200 DATA 4.66,1.23,2.44,2.66,0.98,1.97 

4210 DATA 2.41,0.99,0.99,1.32,8.99,4.32 
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Rain of Terror for the IBM PC 

10 REM program title: rain of terror 

20 CLEAR 200 

22 V$=RIGHT$(TTME$,2): T use PC clock to seed 
random number generator 

24 V-VAL(V$) 

26 RANDOMIZE V 

30 PRINT: WIDTH 40: KEY OFF: COLOR 14,3,7 :CLS 

35 DEF SEG=&HB800 

40 PRINT TAB(IO) "*** RAIN OF TERROR #**":G0SUB 810 

50 PRINT:X$=STRING$(40,32) 

60 INPUT "INSTRUCTIONS (Y/N)";A$ 

70 IF A$="N" OR A$="N0" THEN 190 

80 PRINT "YOU WILL BE BOMBARDED FROM THE" 

90 PRINT "SKY BY FALLING BOMBS. ALL YOU" 
100 PRINT "NEED TO DO TO STAY ALIVE IS TO" 
110 PRINT "USE THE <LEFT> AND <RIGHT ARR0W>" 
120 PRINT "KEYS TO KEEP OUT OF THE BOMBS' POINTS" 
130 PRINT "OF CONTACT. IT SOUNDS VERY SIMPLE" 
140 PRINT "BUT YOU MUST BE FAST!" 
160 PRINT 

170 PRINT "STRIKE A KEY TO BEGIN" 
180 AA$=INKEY$:IF AA$=""THEN 180 
190 CLS 

200 REM border/messages 
210 LOCATE 1,1: PRINT STRING$(40,219) 
220 I$=CHR$(220):G0SUB 510 
230 R=0:REM points 

240 P=160:PP-P+84:U=P+1440:UV=U:UW=U+78:RR=0 
250 POKE P, 43: POKE U,32:P=P+4 
260 U=U+4:P0KE(U-4),32:P0KE U,220 
270 IF P>=PP THEN POKE U, 32: GOTO 240 
280 SOUND 440,1:PX=INT(RND*79+160) 
285 LOCATE 23 S 1:PRINT P.PX 
300 IF ABS(P-PX)<=8 THEN 320 
310 GOTO 250 
320 REM a drop 
330 PL=P 

335 IF PEEK(P)=220 THEN 550 
340 POKE P,42:P=P-f80:F0R 1=1 TO 20: NEXT 
350 POKE(P~80),32 
360 IF P>PL+1440 THEN 410 
370 FOR H=l TO 10:AA$=INKEY$:IF LEN(AA$)=2 THEN 

A$=MID$ ( AA$ , 2 , 1 ) : K=ASC( A$ ) : GOTO 
375 ELSE NEXT 
375 IF K=75 THEN K=0:GOTO 420 
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380 IF K-77 THEN K=0:GOTO 470 

390 R=R+25:RR=RR+25:L0CATE 22,18:PRINT RR:L0CATE 

23, 16: PRINT R; 
400 IF P=U THEN 550 ELSE GOTO 340 
410 LOCATE 21,1:PRINT X$:P=PL:RR=0:G0T0 250 
420 POKE U, 32: POKE UX,32 
430 U=U-4 

440 IF U<-UV THEN 480 
450 POKE U,220 
460 UX=U:U=PL+1440:GOTO 340 
470 POKE U, 32: POKE UX,32 
480 U-U+4 

490 IF U>=UW THEN U=UW 
500 GOTO 450 
510 REM messages 

520 LOCATE 22,1: PRINT "POINTS BEFORE HIT "; 
530 LOCATE 23,1: PRINT "TOTAL POINTS "; 
540 RETURN 
550 REM bombed 

560 R=R»RR: LOCATE 23, 16: PRINT R: LOCATE 21,1: PRINT X$ 
570 IF U<=1604 THEN IMJ+6 
580 IF U>-1676 THEN U-U-8 
590 U1=U-80:U2=U1-2:U3=U1+2:U4=1 
600 POKE U,42 
605 SOUND 1000,3 
610 POKE U 1,42: POKE U2,42 
615 SOUND 1040,3 
620 POKE U3,42 
625 SOUND 1080,3 
630 FOR T-l TO 200: NEXT :U4=U 4+2 
640 POKE U,32:F0R V=0 TO 18 STEP 2:P0KE(U2+V) ,32 

:NEXT 
650 IF ABS(U~U1)>=:328 THEN 670 
660 U1=U1~80:U2=U1-U4:U3-U1+U4:G0T0 600 
670 REM gone 

680 FOR T-l TO 1000: NEXT 
690 CLS 

700 PRINT "YOU HAVE BEEN DESTROYED BY ONE" 
710 PRINT "OF THE FALLING BOMBS. YOUR" 
720 PRINT "TOTAL POINTS ACCRUED BEFORE" 
730 PRINT "BEING DESTROYED WERE:";R 
740 PRINT: FOR T=l TO 1000: NEXT 
750 A$="END OF RAIN OF TERROR." 
760 FOR 1=1 TO LEN(A$) 

770 PRINT MID$(A$,I,1);:S0UND 220,1: SOUND 32767,1 
790 NEXT 
800 END 
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810 PLAY M MB 02 L12 FCF L4 A- F L12 A- F A- LA 
03 C 02 A- L12 03 C 02 A- 03 C L 4 E-02 E- L12 
A- E- A- 03L2 C" 

820 RETURN 
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Appendix B 

Program Listings for the Apple II 



The following listings have been created especially for use on the 
Apple II, Apple He, and Apple II plus. 
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General Store for the Apple II 

10 REM PROGRAM TITLEsGENERAL STORE 

£® HOME : HTAB 1® 

3® PRINT "GENERAL STORE" :R$ = "NEXT" 

4® DIM N*<15), I*<31), I (31) 

5® DIM L<31), PR<31>,TP<15> : REM 

INSTRUCTIONS 
6® PRINT "YOUR INSTRUCTIONS PRE SIMPLE 

AND" 
7® PRINT "STRAIGHT-FORWARDS I WILL GIVE" 
8® PRINT "YOU A LIST OF DIFFERENT ITEMS" 
9® PRINT "AND THEIR PRICES. YOU IN TURN" 
1®® PRINT "WILL ENTER THE TOTAL PRICE OF 

ALL THE' 1 
11® PRINT "ITEMS. THAT IS, IF I SAY *£. 5®, n 
120 PRINT "MILK, AND THEN SAY $®„ 8® BREAD" 
13® PRINT "YOU MUST THEN ENTER THE TOTAL" 
14® PRINT "OF $2.5® + $®„ 8® ($3, 3®) . ALL" 
15® PRINT "OF YOUR ENTRIES SHOULD BE 

ENTERED" 
16© PRINT "WITHOUT DOLLAR SIGNS— JUST PUT" 
17® PRINT "IN THE DECIMAL IF THE NUMBER 

HAS A" 
18® PRINT "CENT AMOUNT. " s PRINT : PRINT 

"PRESS RETURN TO CONTINUES' 1 ; 
19® GOSUB 3®0®: HOME sG$ = "$" 
£1® PRINT "AFTER TEN ITEMS WE WILL" 
220 PRINT "TAKE A SHORT BREAK, THEN I WILL' 
£3® PRINT "GIVE YOU TEN MORE. WE WILL STOP" 
£4® PRINT "ONLY AFTER THIRTY ITEMS HAVE 

BEEN" 
£5® PRINT "TOTALLED. YOUR POINTS WILL BE" 
£6® PRINT "DETERMINED BY THE ACCURACY OF 



YOUR" 



CORRECT, THE TOTAL 



WILL BE" 
£8® PRINT "YOUR POINTS. IF INCORRECT, ALL '■ 
£9® PRINT "MISSED WILL BE SUBTRACTED FROM 

YOUR TO-' 1 
3®® PRINT "TAL. YOU WILL HAVE A TIME 

LIMIT IN" 
31® PRINT "WHICH TO ENTER THE TOTAL, SO LAY 1 
3£® PRINT "DOWN THE PENCIL AND THE 

CALCULATOR! " 
34® REM BEGIN 

35® PRINT "PRESS ANY KEY TO BEGIN; " 
36® GOSUB 300®: HOME 
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37© INPUT "HOW MANY PLAYERS <i-10)? H ?P 

380 IF P < 1 OR P > 10 THEN 37® 

330 PRINT "ENTER » 5P3 " PLAYERS' FIRST NAMES: " 

400 REN NAMES 

410 AP « 1310: FOR I = 1 TO P 

420 INPUT N*(I):N<I) = I: NEXT sN = 1:A1 

= 3:A2 = 30 
425 AQ = AP + 128: IF AQ > = 1959 THEN 

AQ = 1094 
427 IF P = 1 THEN Y = 1:N « 2: GOTO 470 
430 PRINT "I WILL SELECT EACH PLAYER IN" 
440 PRINT "A RANDOM FASHION. THERE WILL" 
450 PRINT "BE NO SET ORDER OF PLAYERS. " 
460 GOSUB £800s PRINT : REN PLAYER 
470 IF EE = 1 THEN 1530: REN FINAL 
480 Q$ = N$<Y)sTA = ®:JI = 
490 PRINT Q*;" WILL NOW PLAY:" 
500 PRINT "PRESS THE RETURN KEY TO BEGIN" 5 
510 INPUT X*: PRINT 
520 HONE : PRINT "HOW FAST IS YOUR 

ADDITION, " 
53# PRINT Q*5"???" 
540 REM READ ALL ITEMS/PRICES 
550 FOR I = i TO 30: READ I$(I):L<I) = Is 

NEXT 
560 FOR I = 1 TO 30: READ PR < I ) : NEXT : 

GOTO 2500 
57® D = I - i:DD = (D / 3) sU = 1:D* = "*": 

580 REM SELECT ITEMS RANDOMLY 

590 IF U > DD THEN PRINT : PRINT : GOTO 

1100 

600 X = INT < RND (1) * 30 + 1) 

610 IF L<X) =0 THEN 600: REM USED 

620 T = X:PR = PR(T):T* = I*(T) 

625 IF U = 1 THEN YU = PR 

630 Tfl = TO + PR: REM TOTAL AMOUNT/CURRENT 

ITEM 
640 Tfl* = STR* (TO) : REM TOTAL TO STRING 
645 IF U = 1 THEN GOSUB E900 
650 IF U = 1 THEN HOME 
655 IF U > 1 THEN 670 
660 HTftB 1: PRINT "PRICES";: HTfiB IE: 

PRINT "ITEMS"; 
655 IF U > 1 THEN 670 
660 HTAB 1: PRINT "PRICES";: HTfiB IE: 



PRINT "ITEMS"; 
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665 HTAB 30 s PRINT "PRICES 

67® HTAB is PRINT D$$PRs, 

680 HTAB l£s PRINT T$ 

690 IF U < = i THEN 710 

700 RR = is REM CONTINUE PRINT/ENTRIES 

710 L<X> = 0sU = U + IsKK = 0sNE = 1 

7£0 IF RR < > 1 THEN 560 

725 VTAB AIs HTAB A£s PRINT F$ 

730 XS = PEEK ( - 16384) « i£8s IF KK < = 
5 AND XS > THEN POKE < - 16368), 3 
GOTO 1040 ! 

735 IF XS = 46 THEN POKE ( - 16368), 02 
GOTO 880 

740 IF XS < =0 THEN 760 

750 POKE ( - 16368), 0s GOTO 800 

760 KK = KK + 1: REM TIME EXPIRED? 

770 IF KK > = £50 THEN W$ = •"' : GOTO 1000 

780 POKE AP, 170s GOTO 730 

800 REM ENTRY 

810 POKE AP, XS + l£8sTY(NE> = XS 

8£0 AP = AP + is REM LOCATION 

830 NE = NE + is REM NUMBER ENTRY 

840 IF NE = LEN <TA«) THEN 860 

85© GOTO 730 

860 GOTO 9102 REM ALL ENTRIES IN 

880 REM DECIMAL 

890 POKE AP, XS + i£8 

90® TY(NE) = 1000s GOTO 8£0 

91® REM COMPILE ENTRIES 

9£© V = NE - is IF V = 9 THEN V = 10 

930 FOR I = 1 TO V 

940 IF TY(I) » 1000 THEN 97® 

950 W$ = W* + STR$ <TY<I>> 

960 TY<I) « ®s NEXT s GOTO 990 

970 W$ = W$ + 

98® GOTO 960 

990 W = VAL <W$)sW$ « STR$ <W) 
100® IF W$ ( > TA$ THEN PI = PI + PRsJI = 

Jl + 1 
1005 IF U = 3 AND Jl < > THEN PI = PI + 

PRsJI = Jl + 1 
1008 IF PEEK (AP) = 170 THEN POKE AP, 160 
101© POKE AP + £, 160sW$ = " " sAl = Al + 1 
10£0 AP = AQsAQ = AQ + i£8s IF AQ > = 1959 

THEN AQ = 1094 
103® GUTO 590s REM ANOTHER ITEM 
1040 REM SLOW DOWN A LITTLE 
105® POKE AP, 160 
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1060 GOTO 730 

1100 REM POINTS/PLAYER ADVANCE 

1110 IF PI < > © THEN 1200 

1120 FOR I = 1 TO LEN (TA*) 

1130 IF MID* <TA*,I,1> = "." THEN 1150 

1140 K* = K* + MID* (TA*, 1,1) 

1150 NEXT 

1160 K = VAL (K$) 

1170 GOSUB 1430 

1180 TP(Y) = TP(Y) + K 

1190 GOTO 1320 

1200 REM MISSED ITEMS 

1210 TA* = STR* (PI): FOR I = i TO LEN (TA*) 

1220 IF MID* <TA*, 1,1) = ". " THEN 1240 

1230 K* = K* + MID* (TA*, 1,1) 

1240 NEXT sK » VAL <K*) : GOSUB 1430 

1250 TP(Y) « TP(Y) - K 

1260 PRINT "YOU HAVE MISSED TOTALS ON ";JI 

1270 PRINT "ITEMS, " 5 Q* 5 ". THESE ITEMS CAME" 

1280 PRINT "TO A TOTAL OF *";TA*;". YOU ARE" 

1290 PRINT "MINUS THAT AMOUNT. YOUR SCORE" 

1300 PRINT "IS NOW ";G*;TP(Y> 

1310 GOTO 1350 

1320 PRINT "YOU HAVE SUCCESSFULLY ENTERED" 

1330 PRINT "ALL TOTALS, " 5 G*;".YOUR POINTS" 

1340 PRINT "ARE NOW: ";G*;TP(Y> 

1350 K = 0:JI - 0:PI - 8:TA* = "":K* - "" 

1360 U = laDi « Dl + 10: IF Dl = 20 THEN R* 

-s "LAST" 
1370 AP = 1310:AQ = AP + 128:A1 = 3:A2 = 

30:RR = 0: PRINT 
1380 IF Dl > = 30 THEN 1500 
1390 PRINT "TAKE A SHORT BREAK, THEN WE'LL" 
1400 PRINT "ATTEMPT THE " ; R* 5 " SET OF ITEMS. » 
1410 FOR I = 1 TO 5000: NEXT : PRINT 
1420 GOTO 580 
1430 REM AMOUNT TIMES 10 
1440 IF MID* (TA*, LEN (TA*) - 1,1) = "." 

THEN 1480 
1450 IF LEN (TA*) =2 OR LEN (TA*) = 3 

THEN 1470 
1460 RETURN 

1470 K « K * 100: GOTO 1460 
1480 K = K * 10 
1490 GOTO 1460 
1500 REM ANOTHER PLAYER 
1510 PRINT : PRINT : RESTORE 
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15£0 
153© 
1535 
1540 
1550 
1560 
1570 
1580 
1590 
1595 

1600 

1610 
1650 

1700 

1710 
1720 

1730 
1740 
1750 
1760 
177© 
1780 
1790 

1800 

1810 
1820 
1830 
1840 
1850 
I860 
1870 
1880 
1890 

1900 
£500 

£510 

£5£0 

£530 
£540 
£550 
£560 
£570 
£580 
£580 
£590 
£600 



Dl = 0sR$ = "NEXT": GOTO 46© 

REM HIGH POINT 

IF P = 1 THEN TP = TP(1): GOTO 17£0 
MM = 0sW=isN = N~i 

IF TP(VV) > = TP(W + 1) THEN 1590 
TP = TP(VV) :TP<W) « TP(W + 1) 
TP<W + 1) = TPsN$ = N*<W) 
N$(W) - N$<W + 1) :N*(VV + 1) = N$sMM = 1 

IF VV + 1 ) = N THEN 1600s REM FINAL 
W « W + Is GOTO 1550 

REM NOT IN ORDER 

IF MM « 1 THEN 1540 

REM POINTS COMPILED (FINAL) 

REM PRINT RESULTS 

PRINT "ALL HAVE PLAYED* . . » 

PRINT "PRESS RETURN FOR RESULTS ON 

SCORE* 1 

OOSUB 3000 

REM SINGLE PLAYER 
IF P = 1 THEN 1850 
PRINT "THE TOP WINNERS " 5 N* < I > 

"WITH A FINAL POINT SCORE OFs » ; 

G$§TP<I> 

"OTHER PLAYERS AND SCORESs" 

= I + 1 TO P 

N$<X) s» HAD 5 



PRINT 

PRINT 

PRINT 

FOR X 

PRINT 

NEXT 

GOTO 1880 

PRINT Q*j» 

PRINT 

PRINT 

PRINT 

PRINT 

END 

REM INFLATION/DEFLATION 

FOR I = 1 TO 30 
DE = INT < RND (1) * 10 + 

CSNG<DE / 10) 
DG = INT ( RND 

IF DG - £ THEN 

REM INFLATION 
PRU) = PR(I) + 



G$$TP(X> 



YOUR TOTAL (FINAL) 
"FOR GENERAL STORE AREs 
G$$TP 

"END OF PROGRAM RUN" 



POINTS* 



(1) * 
£590 



1) sDF = 



1) 



NEXT 
GOTO 
GOTO 
REM 
PR(I) 



570 
570 

DEFLATION 
= PR(I) » 



DF 



DF 
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£610 IF PR(I) < = THEN £560 

£6£0 GOTO £570 

£600 REM RANDOM PLAYER 

£810 IF N > P THEN EE = 1 : RETURN 

£S£0 Q = INT ( RND <1> * P + 1) 

£830 IF N(Q) = © THEN £8£0 

£840 Y = Q:N(Q) = 

£850 N = N + 1 : RETURN 

£900 REM EXTRA MESSAGE 

£91© PRINT 

£9£0 PRINT "ADD ALL ITEMS TOGETHER" 

£930 PRINT "BEFORE INPUTTING AMOUNT. " 

£940 IF Dl > =10 THEN £970 

£950 FOR TL = 1 TO £800: NEXT 

£960 HOME : RETURN 

£970 PRINT "START WITH PREVIOUS TOTAL* " 

£980 GOTO £950 

3000 REM INPUT 

3010 XS « PEEK < » 16384) - 1£8 

30£0 IF XS < =0 THEN 3010 

3^3^ POKE ( - 16368),0: RETURN 

4000 REM DATA/PRICE—ITEM COMBINED 

4010 DATA MILK, BREAD, MEAT 

40£0 DATA MEAT, MEAT, F I SH 

4030 DATA CANDY, CANDY, CANDY 

4040 DATA VEGETABLES, VEGETABLES 

4050 DATA POULTRY, POULTRY 

4060 DATA LETTUCE, ONIONS 

4070 DATA SP I NACH, C I GARETTES 

4080 DATA CIGARS, BACON 

4090 DATA TABLETS ( PAPER) , PENS 

4100 DATA BATTERIES, BATTERIES 

4110 DATA FURNITURE POLISH 

41£0 DATA CARPET CLEANER 

4130 DATA HAND SOAP, HAND SOAP 

4140 DATA CRACKERS, MEATS 

4150 DATA SODAS <CASE) 

4160 REM PRICES OF ITEMS 

41 70 DATA S. 35, 1- 09, 1. 98, 3. 35, 5. 55, 3. 65 

4180 DATA 1.35, £. 15, 1.04, 1- 39, 1-45,3.44 

4190 DATA 1.99, 1.09, i. 11, l.£9,7. 15,5.74 

4£00 DATA 4. 66, 1 . £3, £. 44, £. 66, . 98, 1 . 97 

4£10 DATA £.41, 1.99, 1.99, 1. 3£, 8. 99, 4. 3£ 
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Hold Time for the Apple II 

10 PRINT CHR$ (4) ^''BLOADSOUND" 

£0 F = £00 

1®5 HOME 

1£5 HTAB 15s PRINT "HOLD TINE" 

13® PRINT 5 INPUT "INSTRUCTIONS? " s. Z$ 

135 IF Z$ = "N" OR 1% = "NO" THEN HONE s 

GOTO £75 
14S PRINT : HOME 

145 PRINT "OLD TIME*.* A MATTER OF HIGH OR" 
150 PRINT "LOW POINT TOTALS* THE COMPUTER'S" 
155 PRINT "CRAFT WILL BLIP ALL AROUND YOUR" 
160 PRINT "VIDEO. DOWN THE LEFT AND RIGHT" 
165 PRINT "SIDES WILL BE ASTERISKS,, THESE" 
170 PRINT "ARE YOUR LASERS. AT THE INSTANT" 
175 PRINT "YOU THINK THE CRAFT IS IN LINE" 
180 PRINT "WITH THESE, HOLD THE SPACE BAR. 

' YOUR" 
185 PRINT "LASER BLASTS WILL START MOVING" 
190 PRINT "TOWARD THE CENTER. THE COMPUTER" 
195 PRINT "CRAFT WILL ALSO CONTINUE TO 

MOVE, " 
£00 PRINT s INPUT "PRESS RETURN TO 

CONTINUES" %1% 
£05 PRINT "YOU CAN 'HOLD 9 THE COMPUTER'S" 
£10 PRINT "CRAFT FROM MOVING FOR A SHORT 

TIME," 
£15 PRINT "ROUGHLY £0 SECONDS, BY HOLDING THE 1 * 
££0 PRINT " <P> AND <REPT> KEYS. POINTS 

WILL RANGE" 
££5 PRINT "1500 TO 4©0, DEPENDING ON 

WHERE ON" 
£30 PRINT "THE SCREEN (TOP OR BOTTOM) YOU 

DESTROY" 
£35 PRINT "THE CRAFT. TIME LIMIT FOR THE" 
£40 PRINT "ENTIRE RUN WILL BE JUST ABOUT" 
£45 PRINT "FIVE MINUTES- THIS WILL BE NOTED" 
£50 PRINT "AT THE LOWER RIGHT OF YOUR 

SCREEN. " 
£55 PRINT "COUNT STARTS AT 30. " 
£60 PRINT 
£75 PRINT 2 INPUT "PRESS RETURN TO BEGIN " 

?X$s HOME 

£95 C$ = "X" 

305 Q$ = "#"sMR = SsMC = 16sMl = lsM£ = 1 
31© B = 0sPI = lbs FOR X - i TO 4©s VTAB is 
HTAB Xs PRINT Q$?s VTAB 16s HTAB Xs 
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PRINT Q*; : NEXT 
315 VTAB £: HTAB 36: PRINT "SB";: FOR XR = 

£ TO 15:XC = 1 
3£0 VTAB XR: HTAB XCs PRINT Q$ : : HTAB XC + 

39: PRINT G$ ? 
323 POKE 769,93: POKE 77®, 5s POKE 768,1s 

CALL 768 
3£5 GOTO 50® 

330 IF Ml < > 1 AND M£< >1THEN GOSUB 355 
333 NEXT 
335 FOR X = 1 TO 40: VTAB Is HTAB X: PRINT 

CHR$ (32) 5: VTAB 16: HTAB X: PRINT CHR$ 

(38) ; 
337 NEXT 

340 FOR XR = £ TO 15: XC = 1 
345 VTAB XR: HTAB XC: PRINT CHR$ <3£) 5 b 

HTAB 40: PRINT CHR$ (3£) 5 
350 GOSUB 355: NEXT : GOSUB 355: GOTO 310 

355 VTAB 16: HTAB 35: PRINT ABS ( INT (TT 
/ 6®) - 30) 5 

356 VTAB Mis HTAB M£: PRINT " "; 

360 IF MR < = £ OR MR > =15 THEN MR = 7 

361 VTAB MR: HTAB MC: PRINT C$;:TT « TT + 1 
36£ IF TT > = 1800 THEN B3id 

365 Ml = MR:M£ « MCsW = PEEK ( - 16384) ™1£8 

366 IF W = 80 AND G < = £0 THEN 0=6+. 
4s GOSUB 770: RETURN 

370 XX = INT ( RND (1) * 4 + 1): REM 

CRAFT MOVE 
375 ON XX GOTO 380, 390, 4®®, 410 
380 REM LEFT MOVE 

385 MC = MC - INT (RND (i) * 5 + 1 ) : GOTO 4£0 
39® REM RIGHT MOVE 

395 MC = MC + INT ( RND ( 1 ) *5 + l ) s GOTO 4£0 
400 REM UP MOVE 
4®5 MR = MR - 1: GOTO 4£0 
410 REM DOWN MOVE 

415 MR « MR + 1: IF PEEK (1153) = 3£ THEN 

GOSUB 700: REM LOCATION OF MESSAGE 
FROM LINES 745-76£ 

416 IF PEEK (1186) = 3£ THEN GOSUB 70® s 
REM LOCATION OF MESSAGE FROM LINE 315 

417 IF PEEK (1835) » 3£ THEN GOSUB 70®: 
REM LOCATION OF MESSAGE FROM LINE 705 

418 IF PEEK (1859) = 3£ THEN GOSUB 70® : 
REM LOCATION OF MESSAGE FROM LINE 715 

4£0 IF MC ( =3 THEN MC = 38:MR = MR - 1 
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422 IF MR < = 2 AND MC < = 3 THEN 41® 
425 IF MC > = 35 THEN MC = 3sMR = MR + i 
427 IF MR > =15 AND MC > =35 THEN 40© 
43® RETURN : REM SOUND ROUTINE LOCATION 
50® REM FIRE 
505 IF XR < = 14 THEN W » PEEK < - 16384) 

- 1£8 
510 PI = PI - Is IF W < =0 THEN 33^ 
515 IF W = 3£ THEN POKE ( - 16368), 0s 

GOTO 525 
520 GOTO 330 
525 REM LASER ADVANCE 
530 IF XR > = 13 THEN 330 
532 IF XR < =2 THEN 33® 

535 HR = XRsHC = XC: IF HR > =2 AND HR < 

= 8 THEN HI = HR * 128 + 896 

536 IF HR > = 9 AND HR < = 16 THEN HI = 
(HR - 8) * 128 + 936 

537 H2 = HI + 39sUM = UN + Is REM SOUND 

ROUTINE 

538 IF RP - 1 THEN VTAB 2: HTAB 2©s PRINT 
ABS <R - UN) 5 

54® POKE HI, 160s POKE H2, 16® 

545 IF PEEK (HI 4- 1) < > 16® OR PEEK 

(H2 - 1) < > 16® THEN 57® 
55® Hi =H1 + lsH2 = H2 -Is REM SOUND ROUTINE 
551 POKE 769, 112 



552 


POKE 77®, 6 




553 


POKE 768, 1 




554 


CALL 768 




555 


POKE Hi, 17®3 POKE H2, 170 


560 


IF ABS (H2 - Hi) < 


= 2 THEN 90® 


565 


GOSUB 355s GOTO 540 




570 


REM DIRECT HIT 




575 


POKE HI, 17® 




58® 


IF PEEK (H2 — 1 ) < 


> 16® THEN 60® 


585 


POKE H2, 16®sH2 = H2 


»8 


590 


POKE H2, 17® 




595 


FOR = 1 TO 2: NEXT 


: REM SOUND ROU - ! 


596 


GOTO 580s REM TACK 


ONTO LINE 595 


6®0 


REM DELETE 




6®5 


Z = Is POKE HI, 160s POKE H£, 16® 


61® 


IF MR > =2 AND MR 


< = 8 THEN N = 



MR 
* 128 + 896 + MC - 1 s REM SOUND ROUTINE 

612 IF MR > =9 AND MR < =16 THEN N = 
(MR - 8) * 128 + 936 + MC - 1 

615 POKE N, 16®s POKE N + 1,16® 

62® POKE N + 2, 16® 
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625 J = INT < RND <1> * 5 + 1) 

630 IF N + J - 128 > = 1190 THEN £40 

635 GOTO 660 

640 POKE N + J - 128,170: POKE N + 128,170 

645 FOR I = 1 TO J M0: NEXT 

650 POKE N + J ~ 128,160: POKE N + 128,160 

655 GOTO 675 

660 POKE N + J + 128,170: POKE N + 128,170 

665 FOR I = 1 TO J * 10: NEXT 

670 POKE N + J + 128,160: POKE N + 128,160 

675 IF Z < =7 THEN 685 

680 IF RP = THEN GOTO 690 

682 PI - PI + 1: GOTO 695 

685 1 = Z + Is GOSUB 1000 

687 GOTO 625 

£90 pi = pi + i 2 x$ = X* + "+" 

695 pp = pp + PI * 10(3: GOSUB 700: GOTO 900 

700 A* = "TOTAL POINTS! ":T$= "TIME LAPSE: " 

705 FR « 15:FC = 3 

710 FOR I = 1 TO LEN (ft*) 

715 VTAB FR: HTAB FC + 23s PRINT MID* <T*, I, 1 > 5 

716 VTAB FR: HTRB FC: PRINT MID* (A*, 1,1); 
720 FC = FC + Is NEXT 

725 PRINT 9P\i IF RP = 1 THEN 735 

730 IF X* - "" THEN RETURN 

735 REM RESERVE POWER 

740 R* = "RESERVE POWER: " 

745 FR = 2:FC - 2 

750 FOR I = 1 TO LEN <R*> 

755 VTAB FR: HTAB FC: PRINT MID* <R*, I,i)$ 

760 FC = FC + 1 : NEXT 

762 IF RP = 1 THEN X* = STR* < RES (R - UN)) 

765 PRINT X* 5 

770 TI* = "HOLD TIME "s REM HOLD TIME 

775 IF PEEK (1864) < ) 32 THEN 790 

780 FR « 2:FC = 25: FOR I = 1 TO LEN (TI*) 

785 VTAB FR: HTAB FC: PRINT MID* (TI*, 1,1) 

g sFC = FC + Is NEXT 
790 VTAB 2s HTAB 36: PRINT INT ( ABB <G - 

20) ) ; 
795 POKE < ~ 16368), 0: RETURN 
800 REM TIME REMAINING 
805 IF RP = l THEN DK = 1 s GOTO 910 
810 IF TT > = 1800 THEN 830 
820 GOTO 300 

830 FOR TI = 1 TO 1200: NEXT 
835 HOME :R = LEN (X*) 

413 



840 


IF R = THEN 960 




845 


PRINT "VERY WELL DONE- . . " 




85© 


PRINT "YOU HAVE " ;R$" UNITS OF" 




855 


PRINT "RESERVE POWER " 




860 


PRINT "PRESS RETURN TO USE" 5 




865 


INPUT X$sTT = 0sRP = 1;UN = fl 




870 


HOME 




875 


GOTO 300 




900 


POKE HI, 160: POKE H£, 168s REM DE 
RESERVE UNITS 


•LEGE 


905 


IF RP = 1Z1 THEN 330 




910 


IF UN > = R THEN 9£5 




915 


IF DK = THEN 330 




9£0 


DK = 0s GOTO 810 




925 


REM FINISH 




930 


FOR TI = 1 TO i£00; NEXT 




935 


HOME 




940 


PRINT "RESERVE POWER EXHAUSTED.-. 


it 


945 


PRINT "TOTAL POINTS ACCUMULATED: 


" 3 PP 



950 PRINT 

955 GOTO 980 

960 PRINT "YOU HAVE DESTROYED NOTHING' 

965 PRINT "YOU HAVE NO RESERVE POWER. ' 

970 PRINT 

975 GOTO 945 

980 PRINT 

985 PRINT "END OF RUN." 

990 END 

1000 F = F + 7 

1005 POKE 789, F 

1010 POKE 770,7 

1020 POKE 768, £ 

1030 CALL 771 

1040 RETURN 
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Be Prepared for the Apple II 

1 REM PROGRAM TITLE BE PREPARED 

10 PRINT CHR$ (4) 5"BLOADSOUND" 

£0 HOME : HTAB 10: PRINT ">>BE PREPARED < <" 

30 PRINT "BE SURE YOU HAVE READ THE 

INSTRUCTIONS 
40 PRINT "BEFORE YOU START. DO YOU NEED TO " 
50 INPUT "SEE THEM NOW (Y/N) ? n $AA$ 
60 IF AA* « M N" THEN 95 
70 HOME s GOSUB £000 
90 K = 1£7 
95 GR 

100 FOR I = i£8£ TO 1£87 
110 FOR J = I TO I 4- 30 STEP 10 
120 POKE J,K 
130 NEXT s NEXT 
£00 FOR I = 1576 TO 1578 
£10 POKE I,K: POKE I + 37, K 
££0 NEXT 

300 FOR I = 15B3 TO 1588 
310 FOR J = I TO I + £0 STEP 10 
3£0 POKE J, K 
330 NEXT : NEXT 

400 FOR I = 1410 TO 19££ STEP 1£8 
410 FOR J = I TO I + 35 STEP 5 
4£0 POKE J, K 
430 NEXT : NEXT 

500 FOR I « 1066 TO 1450 STEP 128 
510 FOR J = I TO I + 35 STEP 5 
5£0 POKE J, K 
530 NEXT : NEXT 
1000 POKE - 16368,0: IF C > 9 THEN C = 1 

1005 IF C > 9 THEN C = 1 

1006 IF VD = AND VW = THEN F = 10000 

1007 IF VD + VW = £0 THEN 9400 
1010 D = INT ( RND <1> * C + 1) 

1015 IF F < =1 THEN F = 0: GOTO 930© 

1017 GOSUB 9500 

1030 S = 183£ 

1040 IF S = 1871 THEN DI = - 1: GOTO 1090 

1050 IF ( PEEK ( - 16384) - 176) = D THEN 

7000 

1060 T « S:S = S + 1 

1070 POKE T,0: POKE S, 153:F = F -. 10 

1080 GOTO 1040 

1090 T = S:S = S - 1 
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THEN C 

1005 

F - 10 



1093 IF < PEEK < - 16384) - 176) = D THEN 
POKE T 9 0s GOTO 7000 

1095 IF S * 1832 THEN DI = Is IF C = 9 THEN 

1000 

1096 IF DI = -I THEN 1100 

1097 IF C < > 9 AND S = 1832 THEN C ^ C + 
Is POKE - 16368,0 2 GOTO 

1100 POKE T, 0s POKE S, 153sF = 

1110 IF DI = - 1 THEN 1090 

£00© PRINT " A LONG TIME FROM NOW, IN A 

GALAXY" 
£010 PRINT "LIGHT-YEARS AWAY..." 

£0£0 PRINT : PRINT "YOU HAVE BEEN ASSIGNED 

TO DUTY ABOARD" 
£030 PRINT "THE SPACE CARRIER ' XENOPHON' . " 
2040 PRINT "YOUR ASSIGNMENT: TO SAFELY DOCK 

TWENTY" 
£050 PRINT "BATTLE CRUISERS RETURNING FROM 

DEEP" 
£060 PRINT "SPACE. "s PRINT 

£070 INPUT "PRESS RETURN TO CONTINUE" ;AA* 
£080 HOME s PRINT "THE VESSELS HAVE 

LIMITED FUEL REMAINING" 
£090 PRINT "SO YOU MUST DOCK THEM AS SOON AS" 
£100 PRINT "POSSIBLE, YOU WILL SEE THE PORTS" 
£110 PRINT "ON THE SCREEN AS BLUE AND 

WHITE TUBES. " 
£1£0 PRINT "WHEN YOU THINK THE VESSEL IS 

AT THE" 
2130 PRINT "OPENING, PRESS A NUMBER KEY 

BETWEEN" 
£140 PRINT "ONE AND TWO FOR THE FIRST 

VESSEL. " 
2150 INPUT "PRESS RETURN TO CONTINUE ";AA$ 
£160 HOME s PRINT "FOR THE SECOND VESSEL 

YOU MUST CHOOSE" 
£170 PRINT "BETWEEN KEYS ONE THROUGH THREE, 

THE" 
£180 PRINT "POSSIBLE CHOICES INCREASING 

FOR EACH" 
£190 PRINT "VESSEL UP TO NINE, THEN 

STARTING OVER. " 
£200 PRINT "IF YOU FIRE AT THE WRONG TIME OR" 
££10 PRINT "ALLOW THE VESSEL TO RUN OUT 

OF FUEL, " 
£££0 PRINT "YOU WILL HAVE DESTROYED A 

vni_Dr~*£:u„Ei 

££30 PRINT "VESSEL AND MANY HUMAN LIVES. 
TAKE THIS" 
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££40 PRINT "ASSIGNMENT SERIOUSLY. THAT 

WILL BE ALL" 
££*50 PRINT : INPUT "PRESS RETURN TO BEGIN" 

;Aft$ 
3000 RETURN 

7®®0 POKE - 16368, 0s X = S 
7005 AA « 

7010 flfl r ftft + is GOSUB 8000 
70£0 IF A A < 11 THEN 7040 
7030 GOTO 9£00 
7040 GOTO 7010 

8000 IF X > 1066 AND X < 1101 THEN 9000 
8005 IF PEEK (X - 128) < > THEN 9100 
8010 Y = XsX = X - 1£8 
8020 POKE Y, 0: POKE X, 153 
8030 RETURN 

9000 FOR II = 1066 TO 1096 STEP 10 
9010 IF X > II AND X < II + 5 THEN Y = X:X 

= X + 856 
90£0 NEXT lis GOTO 80£0 
9100 GOSUB 9600 
9110 HOME : VTAB £3: FLASH : HTAB 1£: 

PRINT "VESSEL DESTROYED" :VW = VW + 1 s 

FOR TT = 1 TO £000: NEXT :F = 100005 

NORMAL : POKE X,0 
9115 GOSUB 9500 

91£0 C =z C + 1: POKE - 16368,0: GOTO 1005 
9£00 GOSUB 9800 
9£10 HOME : VTAB £3: INVERSE : HTAB 13: 

PRINT "VESSEL DOCKED": FOR TT = 1 

TO £000: NEXT : NORMAL : POKE X, 
9££0 VD « VD + 1:F " 10000 
9££5 GOSUB 9500 

9£30 C = C + Is POKE - 16368,0: GOTO 1005 
9300 GOSUB 9700 

9310 NOTRACE : VTAB £3: INVERSE : HTAB 13: 
PRINT "FUEL EXHAUSTED": FOR TT = 1 T 
£000: NEXT : NORMAL sVW = VW + 1:F 

= 10000 

9311 POKE X,0 
9315 GOSUB 9500 

93£0 C = C + Is POKE - 16368,0: GOTO 1005 

9400 GOSUB 9500 

9410 VTAB £1: PRINT TAB ( 1£);"G A M E 

OVER 
9415 FOR TT = 1 TO 6000: NEXT 
94£0 TEXT : HOME : END 
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9500 HOME : VTAB ££s PRINT TAB ( 13); M FUEL 

REMAININOs » ;F 

9510 VTAB £4g PRINT "VESSELS DOCKEDs ";VD;" 

VESSELS DESTROYED s "$VW 

95£0 RETURN 

9600 FOR II « 1 TO A 

9610 POKE 769,159s POKE 770,7s POKE 768,3 

96£0 CALL 768 

9630 POKE 769,173s POKE 770,6s POKE 768,3 

9640 CALL 768 

9650 NEXT 

9660 RETURN 

9700 POKE 769,8s POKE 770,14 

9705 POKE 768, 3 

9710 CALL 766 

9720 POKE 769,13s POKE 770,30 

9725 POKE 768, 3 

9730 CALL 768 

9760 POKE 769, £6: POKE 770,49s POKE 768,3 

9770 CALL 768 

9780 RETURN 

9800 POKE 769,6s POKE 770,8 

9810 POKE 768, 16 

98£0 CALL 771 

9830 POKE 769,135s POKE 770,5 

9840 POKE 768, 16 

9850 CALL 768 

986© POKE 769,93s POKE 770,5 

9870 POKE 768, 17 

9880 CALL 768 

9890 RETURN 

££140 PRINT "ONE AND TWO FOR THE FIRST 

VESSEL- " : PRINT 
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Rain of Terror for the Apple II 



10 
£0 
30 
40 
50 

60 

70 
80 
90 

100 
110 

120 
130 
140 
150 
160 
170 
180 
190 

£00 

£10 
££0 
830 
£40 

£48 
£50 

£60 
£70 

£80 

300 

310 
3£0 
33Qa 
340 
350 
360 
370 

380 
390 



'*** RAIN Oh TERROR ***" 



REM PROGRAM TITLE: RAIN Of TERROR 

CLEAR 

HOME : PRINT 

HTAB 10: PRINT 

PRINT 

"INSTRUCTIONS <Y/N> 

= "N" THEN 190 

"YOU WILL BE BOMBARDED FROM THE " 

"SKY BY FALLING BOMBS. ALL YOU" 
"NEED TO DO TO STAY ALIVE IS TO" 
"USE THE LEFT AND RIGHT ARROW 



"TO GET OUT OF THE WAY OF THE' 



"FALLING 

"SIMPLE, 



BOMBS. 

BUT YOU 



"PRESS 

AA$ 



RETURN TO BEGIN' 



/ 
7: 



MESSAGES 
HLIN 



INPUT 
IF A$ 

PRINT 
PRINT 

PRINT 

PRINT 

KEYS" 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

HOME 

REM BORDER 

GR : COLOR= 

GOSUB 510 
R = 0s REM POINTS 
PR = 1: PC = 0:PP = PC + 
13:UC = PC:UV = UC:UW = 
RR = 

COLOR= 3: PLOT PC, PR: 
UC, URsPC = PC + £ 
UC = UC + £: PLOT PC - 
PLOT UC, UR 

IF PC > = PP THEN 
UR: GOTO £40 
PX = INT < RND (i) 

IF ABS (PC - PX) 

GOTO £50 

REM A DROP 
PL = PR 

COLORE 3: PLOT PC, PR 

COLORE 0: PLOT PC, PR 

IF PR > PL + 13 THEN 
K = PEEK ( - 16384) 
THEN 4£0 

IF K = £1 THEN 470 
R = R + £5:RR = RR + i 
18s PRINT RR; : VTAB £< 



:A$ 



SOUNDS VERY" 

MUST BE FAST ! " 



39 AT 



39:UR = 
UC + 34: 



PR + 
RR = 



COLORE 0: PLOT 



£, PR: COLOR= 11: 



COLORE 0: PLOT UC, 



< 



39) 

= 8 



THEN 3£0 



PR = 
- 1 
410 
i£8: 



PR + 1 



IF K 



i VTAB £1 
HTAB 18: 



: HTAB 
PRINT 



R5 
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400 IF PR = UR AND PC = UC THEN 550ELSE 

GOTO 340 
405 GOTO 340 

410 PR = PLsRR = 0s GOTO £50 
420 COLOR= 0s PLOT UC,URs PLOT UX,UR 
430 UC = UC - 2 
440 IF UC < = UV THEN 480 
450 COLORE 1 1 : PLOT UC, UR 
455 POKE ( ~ 16368), 0:UX = UC 
460 UR = PL + 13:UC = PCs GOTO 340 
470 COLOR= 0s PLOT UC,URs PLOT UX ? UR 
480 UC = UC + 2 

490 IF UC > = UW THEN UC = UW 
500 GOTO 450 
510 REM MESSAGES 

520 VTAB 21s PRINT "POINTS BEFORE HIT" 5 
530 VTAB 22s HTAB Is PRINT "TOTAL POINTS " 
540 RETURN 
550 REM BOMBED 

5S0 R = R - RRs HTAB 22: VTAB 18: PRINT R; 
570 IF UC < =2 THEN UC - UC + 3 
580 IF UC > =37 THEN UC = UC - 3 
590 Rl = UR ~ i:Ci = UC:R2 = Ri:C2 = Ci - 

IsR3 = R1:C3 = CI + lsU4 = 1 
800 COLORE INT ( RMD (1) * 6 + 4) s PLOT 

UC, UR 
810 PLOT Ci,Rl: PLOT C£, R2 
820 PLOT C3 ? R3 

630 FOR T = 1 TO 200: NEXT sU4 = U4 + i 
640 COLORE 0s PLOT UC,URs HLIN C2, C3 AT R2 
650 IF ABS (UR - RI) > =4 THEN 670 
660 Ri = Rl - lsC2 = CI - U4sC3 = CI + U4s 

GOTO 601Z 
670 REM GONE 

680 FOR T ™ 1 TO 2500 2 NEXT 
690 TEXT s HOME 

700 PRINT "YOU HAVE BEEN DESTROYED BY ONE" 
710 PRINT "OF THE FALLING BOMBS. YOUR" 
720 PRINT "TOTAL POINTS ACCRUED BEFORE" 
730 PRINT "BEING DESTROYED WEREs " ; R 
740 PRINT s FOR T - 1 TO 1000s NEXT 
750 A* = "RAIN OF TERROR" 
760 FOR I = 1 TO LEN (ft*) 
770 VTAB 15 s PRINT MID* (A*, 1,1)5 
790 NEXT 
800 END 
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Knights for the Apple II 

1® REM PROGRAM TITLE:KNIGHTS 

15 PRINT CHR$ <4) ; "BLOADSOUND" 

£0 CLEAR 

30 HOME : HTAB 15 

40 PRINT '*>>> KNIGHTS << <" 

50 PRINT 

60 PRINT "INSTRUCTIONS NEEDED?" 

70 INPUT T$ 

80 IF T* = "N" OR T$ = "NO" THEN 370 

90 PRINT "THERE ARE 10 KNIGHTS IN A CASTLE. 

100 PRINT "THESE ARE KNIGHTS WHO HAVE DONE 

WRONG" 
110 PRINT "AND WERE IN A DUNGEON WAITING" 
120 PRINT "TO HAVE THEIR HEADS REMOVED." 
130 PRINT "THEY HAVE ESCAPED FROM THE 

DUNGEON" 
140 PRINT "AND CAPTURED THE CASTLE." 
150 PRINT "WITH THEM THEY HAVE EIGHT" 
160 PRINT "HOSTAGES WHOM THEY HAVE 

CAPTURED" 
170 PRINT "THE KING WILL NOT MEET THEIR 

TERMS" 
180 PRINT "SO THEY HAVE VOWED TO FIGHT" 
190 PRINT "TO THE DEATH-.." 
£00 PRINT : INPUT "PRESS RETURN TO 

CONTINUE: n ;AA* 
££0 PRINT "YOU ARE THE SHARPSHOOTER 

SELECTED" 
£30 PRINT "BY THE KING TO TERMINATE EACH" 
£40 PRINT "OF THESE KNIGHTS. YOU ARE" 
£50 PRINT "EQUIPPED WITH A HIGH-POWER 

CROSS - " 
£60 PRINT "BOW. ALONG THE CASTLE WALLS 

ARE" 
£70 PRINT "FIVE WINDOWS. EACH TIME A 

FIGURE" 
£80 PRINT "APPEARS AT A WINDOW YOU'LL HAVE' 
£90 PRINT "THE OPTION OF FIRING (BY 

STRIKING" 
300 PRINT "THE SPACE BAR) OR NOT. THE" 
310 PRINT "FIGURE APPEARING IN THE WINDOW" 
3£0 PRINT "COULD BE ONE OF THE HOSTAGES. " 
330} PRINT "IF IT IS A KNIGHT AND YOU 

DON'T FIRE" 
340 PRINT "YOU COULD BE HIT..." 
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350 PRINT 

360 INPUT "PRESS RETURN TO BEGIN, " : T* 

370 HOME :K « 10sHD = 8sCR = 1®: GR 

3S0 REM MAKE A CASTLE 

39© COLOR= 6: FOR C = TO 39s HLIN 0,39 

AT C: NEXT 
400 COLOR= 10s FOR C = 10 TO 26s HLIN £,38 

AT Cs NEXT 
410 FOR C = £ TO 38 STEP £ 
420 PLOT C,9s NEXT 
510 X = 13:Y = 4: CGLOR= 6 
520 FOR C = X TO (X + 10) 
530 FOR Y = 4 TO 3£ STEP 7 
540 HLIN Y, <Y + 4) AT C 
550 NEXT Y 
560 NEXT C 

590 REM GET A WINDOW 
600 W = INT <5 * RND (1) + 1) 
610 WI = 7 * W - 3 
6£0 POKE ( - 16368) ,0s REM PAUSE BEFORE 

PLACING 
630 PP - INT <700 * RND (!) + £51) 
640 FOR PU « 1 TO 700 
650 IF PU = PP THEN 670 
660 NEXT : GOTO 630 
670 GOSUB 1630 

680 REM SHARPSHOOTER TO FIRE 
690 FOR TI = 1 TO 100 
700 WS = PEEK ( - 16384) - 1£8 
710 IF WS = 32 THEN 730 
720 NEXT 
730 POKE < - 16368), 0s REM KNIGHT OR 

HOSTAGE 
740 HI « INT (5 * RND (1) + 1):H2 = INT 

(5 * RND (1) + 1);H3 = INT <5 * RN 

D (1) + 1) 
750 H = ABS (HI « H2 - H3) 
760 GOSUB 1670 
76£ IF H = W THEN 1240 
765 IF HD < =0 THEN THEN 840 
770 IF H < = OR H > =5 AND TI < = 
99 THEN 790 

780 GOTO 840 

790 REM A HOSTAGE 

880 IF TI > =75 THEN 880 

810 GOSUB 1800s PRINT "YOU HAVE JUST 

KILLED ONE OF" 



422 



8£0 PRINT "OF THE HOSTAGES, TURKEY !!! " 

830 GOTO 978 

840 IF TI > = 100 THEN 880 

850 PRINT "GOOD SHOOTING! YOU HAVE" 

860 PRINT "ELIMINATED ANOTHER KNIGHT!" 

865 GOSUB 1900 

870 GOTO 940 

880 IF H > =0 AND H < « £ THEN 10£8 

885 GOSUB £100 

890 PRINT "THINK FASTER!! YOU HAVE BEEN 11 

900 PRINT "HIT BY ONE OF THE KNIGHTS!!" 

910 HK = HK + 1 

920 IF HK > =6 THEN 1060 

930 GOTO 990 

940 K = K - 1: PRINT K$" KNIGHTS REMAIN" 

950 IF K < =8 THEN 11£0 

960 GOTO 990 

970 HD = HD - 1 

980 IF HD < =0 THEN 1180 

990 FOR TX = 1 TO 1500: NEXT : HOME 

995 GOTO 1400 

1000 REM CLEAR PRINT AREA 

1010 GOTO 590 

10£0 IF HD < =0 THEN 890 

1030 PRINT "GOOD THING YOU DIDN'T SHOOT!" 

1040 PRINT "THAT WAS A HOSTAGE!" 

1045 GOSUB 1900 

1050 GOTO 990 

1060 REM HIT ENOUGH 

1080 PRINT "YOU HAVE BEEN HIT ";HK; n TIMES." 

1090 PRINT "YOUR BODY CANNOT STAND" 

1100 PRINT "ANY MORE- YOU ARE DYING." 

1110 GOTO 1530 

11£0 REM KNIGHTS KILLED 

1138 GOSUB 1908 

1140 PRINT "YOU HAVE KILLED ALL TEN" 

1150 PRINT "KNIGHTS. THE KING WILL BE" 

1160 PRINT "PROUD OF YOU, MY FRIEND..." 

1165 GOSUB 1900 

1170 GOTO 1538 

1180 REM HOSTAGES GONE 

1190 GOSUB 1800 

1£00 PRINT "YOU HAVE KILLED ALL OF THE " 

1£10 PRINT "HOSTAGES. . . YOU TURKEY ! ! " 

1££0 PRINT "THE KING WILL HAVE YOUR HEAD!!" 

1£30 GOTO 990 

1£40 REM COMPLETE MISS 

1£50 XX = INT (37 * RND (1) + 3) 

423 



1270 YY = INT (10 * RND (1) + 13) 

1280 IF YY < = 17 THEN 1270 

1290 COLORE 0s PLOT XX, YY 

1295 GOSUB £100 

1310 PRINT "YOU'LL HAVE TO DO BETTER" 

1320 PRINT "THAN THAT, YOU'VE MISSED! i" 

1330 GOTO 990 

1350 REM CROSSBOW ROUNDS 

1360 VTAB 21 2 HTAB 1 

1370 PRINT "YOU HAVE "sCRs" ARROWS TO FIRE. 

1380 RETURN 

140© REM ENOUGH ARROWS LEFT 

1410 IF TI < = 99 THEN CR = CR - 1 

1420 GOSUB 1350s IF CR < =0 THEN 1440 

1425 FOR TX = 1 TO 2000s NEXT : HOME 

1430 GOTO 590 

1440 REM END 

1450 FOR TX « 1 TO 2000s NEXT 

14S0 TEXT s HOME 

1465 GOSUB 2100 

1470 PRINT "YOU HAVE EXHAUSTED YOUR" 

1480 PRINT "SUPPLY OF CROSSBOW ARROWS. " 

1490 IF K < > THEN 1510 

1500 GOTO 1530 

1510 PRINT "THERE ARE STILL " s.Ks" KNIGHTS" 

1520 PRINT "IN THE CASTLE" 

1530 PRINT 

1540 IF HD < =0 THEN 1560 

1550 GOTO 1600 

1555 GOSUB 2100 

1560 PRINT "YOU ARE A BLUNDERING SHARP-" 

1570 PRINT "SHOOTER, YOU IDIOT! ii" 

1580 PRINT "YOU HAVE HIT AND KILLED ALL" 

1590 PRINT "EIGHT HOSTAGES!" 

1600 PRINT 

1610 PRINT "END OF RUN" 

1620 END 

1630 COLORE 9s FOR Y = (WI + 1) TO <WI + 3) 

1640 FOR Z « 21 TO 23: PLOT Y, Z 

1650 NEXT Zs NEXT Y 

1660 RETURN 

1670 COLORE 6 

1680 FOR Y = (WI + 1) TO (WI + 3) 

1690 FOR Z = 21 TO 23s PLOT Y, Z 

1700 NEXT Zs NEXT Y 

1710 RETURN 

1800 REM BEE-BOOP 

1810 POKE 769,33 
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18£0 POKE 778, 14 

183© POKE 768, 10 

1840 CALL 771 

1850 POKE 769, 13 

I860 POKE 770,30 

1870 POKE 768, £5 

1880 CALL 771 

1890 RETURN 

1900 REM TA-DA TA-DAA ! 

1910 POKE 769,4 

£9£0 POKE 770, £3 

1930 POKE 768, 10 

1940 CALL 771 

1950 POKE 769,8 

I960 POKE 770, 14 

1970 POKE 768, 10 

1980 CALL 771 

1990 POKE 769,4 

£000 POKE 778, £3 

£018 POKE 768, 18 

£0£0 CALL 771 

£838 POKE 769,8 

£048 POKE 778, 14 

£858 POKE 768, 58 

£868 CALL 771 

£870 RETURN 

£100 POKE 769, £88 

£110 POKE 778,75 

£1£0 POKE 766, 1 

£140 RETURN 
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Mind Invasion for the Apple II 

10 REM PROGRAM TITLE MIND INVASION 

£© REM INSTRUCTION ROUTINE 

30 CLEAR : GOSUB 1500s J - lsTR = 1 

40 GR s REM OUTER GRAPHICS 

50 X = lsY - 3S:K - 1 s PN = 1:TX - 1939:TL 

- TXsXl * 1 
60 COLOR- K: PLOT XI, X: PLOT Y,X: PLOT XI 

+ £, X; PLOT Y - £, X 
70 X - X + £ : Y = Y ~ 1 s J - J + 1 s X 1 = X 1 * 
80 IF J < > 8 THEN GOTO 60 
30 REM GOTO CHARACTER PRINT/ IF DONE 
95 PLOT XI, Xs PLOT Y 9 X:X1 = XI - 1:Y - 
Y + 1:X = X + 1 
100 IF J = 16 THEN POKE TX,££4sN - 14: 

GOTO 140 
110 COLORE Ks PLOT XI, Xs PLOT Y,Xs PLOT XI 

+ £ X s PLOT Y — £ X 
115 IF^PN*- 1 THEN A(l) = X1:A<£> - Y:L = 

A(l) :R = A<£) 
1£0 X = X 4- £;X1 = XI ~ IsY = Y *• 1 
130 J - J *• is PN - £s GOTO 100 
140 VTAB SI: HTAB £3: PRINT "YOUR POINTS- "i 
150 PI « 
160 GOSUB 910 
170 PRINT "PLAYER:" 5 N*<PZ) 
£00 REM CHARACTER GRAPHICS VARIABLES 
£10 J - Y:QU - £sQW = 3£:E - 6:F = IflsTC 

= IsBC = 1S:T = lsE£ = E:F£ = F 
££© KY = 1:G - 30: IF TI > - 3 THEN 880 
£30 COLOR- 13: FOR I - TO J s PLOT QU + 

I,Es PLOT QW + I,E: PLOT QU + l,Fs PLO 
T QW + I,F:E1 = E - 1:F1 * F + 1 
£40 T = T + 1 
£50 COLOR- s PLOT QU + I,Es PLOT QW + I , 

E: PLOT QU + I,F: PLOT QU + I,F:E1 = E 
- IsFl = F + 1 
£60 IF T > - £ THEN J - J - 1 
£70 COLOR- 13: FOR I = TO J: PLOT QU + 
I,F - 1: PLOT QW+ I,F - i; PLOT QU + 
I , E » 1 s PLOT QU + I , E s PLOT QU + I , F 
£80 PLOT GW + I,E - 1: PLOT QW + I,F + 1: 
PLOT QW + I, El - 1: PLOT QW + I,F1 + 1 
£90 COLOR- 0: PLOT QU + I , F - 1 s PLOT QW + 
I, F - 1 : PLOT QU + I , E - 1 : PLOT QU 
•f I.E: 
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300 PLOT QW + I,E - 1: PLOT QW + I,F + is 

PLOT QW + I, El - Is PLOT QW + I,F1 +1 
310 E = E - 1:F = F + I:E1 = E£ ~ £:Fi = F£ 

+ £:F1 - E£ + £ 
3£0 IF T < « 4 THEN E£ « E£ + lsF£ = F£ 

+ 1 sT - T + 1 
3£5 IF T > =5 THEN E£ == E£ ™ 1:F£ = F£ 

- IsT = T + 1 

330} REM RESET VARIABLES IF DONE 

335 GOTO 700 

340 IF T > = 8 THEN £00 

345 KY = KY + Is GOTO £60 

350 REM FOR CHARACTER CLEAR 

400 XS = PEEK ( - 16384) - 1£8 

405 TI = TI + Is REM LIMIT COUNT WITHOUT 

MOVEMENT 
410 IF XS < > 73 AND XS < > 77 THEN 

POKE ( - 16368), 0s GOTO 340 
4£0 TI = Is REM PLACEMENT/LIMIT/RESET 
430 IF XS = 73 THEN POKE ( - 16368) ,0s 

GOTO 460 
440 IF XS - 77 THEN POKE ( - 16368) ,0s 

GOTO 490 
450 GOTO 340 
460 POKE TX,0s IF TX = 1083 THEN TX = TX 

+ 856 
465 IF TX > 1555 AND TX < = 1939 THEN 

TX = TX "~ 1 °8 
467 IF TX > 1083 AND TX < = 1339 THEN TX 

= TX - 1£S 
470 IF TX = 1555 THEN TX = TX + 1£8 
480 POKE TX,££4sU(KY> = XSs GOTO 340 
490 POKE TX ? 0s IF TX = 1939 THEN TX - TX 

- 856 

495 IF TX < 1939 AND TX > = 1555 THEN TX 

- TX + 1 ~'8 

497 IF TX > *"= 1083 AND TX < 1467 THEN 

TX = TX + 1£B 
500 IF TX = 1339 THEN TX = TX - 1£8 
510 POKE TX,££4sU(KY> = XSs GOTO 340 
600 REM TOP/BOTTOM CHARACTERS 
610 FOR V = 1 TO G: FOR QX = 15 TO £5s 

PLOT QX, TC 
6£0 PLOT QX,BCs NEXT 

630 COLOR= 0s FOR QX = 15 TO £5s PLOT QX, TC 
640 PLOT QX,BC: NEXT s NEXT 
650 TC = TC + lsBC = BC - IsG = G - £ 
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660 REM REPLACE USER CHARACTER 

670 IF PEEK (TX) = THEN POKE TX,£38 

688 GOTO 31© 

700 REM CRUSHER MOVEMENT 

7®5 COLOR= 0s PLOT <A<1> + £>,9s PLOT 

<A<£> - £),9 
710 PLOT L, 15s PLOT R, 15 
7£0 IF ABS (L - R) < =3 THEN 750 
730 L = L + 3iR = R ™ 3 

740 COLOR= Ks PLOT L, 15s PLOT R, 15: GOTO 400 
750 L = A(1):R = A(£>: GOTO 800 
760 POKE L,Ks POKE <L + £) , K 
770 POKE R,Ks POKE (R - £),K 
780 REM RECYCLE 
790 GOTO 400 
800 REM CRUSHED? 
810 IF PEEK (TX) = THEN 840 
8£0 IF TI < = £ AND U(KY) < > U<KY - 1) 

THEN PI = PI + ABS (TX - TL) : GOSUB 
910 HTAB 35s VTAB £1: PRINT Pis RETURN 
9£0 GOTO £30 

950 REM PLAYER ADVANCE/END 
960 TP(PZ) = PIsPI = ©sPZ = 91 + 1 
970 IF PZ > PL THEN GOSUB 1£00:TR = TR + 

1:PZ = 1 
980 IF TR > =3 THEN GOSUB 1£40: GOTO 

1010 

990 FOR LX = 1 TO 14s PRINT s NEXT 
1000 GOSUB £100: HOME :J = Is GOTO 40 
1010 REM END/HIGH POINT WINNER 
10£0 T = 0:H = 1: IF H = PL THEN 11£0 
1030 IF FT(H) > = FT<H + 1) THEN 1080 
1040 FT = FT(H)sFT(H) = FT(H + 1) 
1050 FT(H + 1) = FT:N$ = N*(H):N*(H) = N$ 

( H + i ) 
1060 mtH + 1) = N* 
1070 T = 1 
1080 H = H + 1 
1090 IF H < PL THEN 1030 

1100 IF T = 1 THEN 10£0: REM NOT REFINED 
1110 GOTO 1300 
11£0 TEXT 
1130 HOME 

1140 PRINT "YOUR TOTAL POINTS, AFTER £" 
1150 PRINT "ROUNDS**" ;TP(H) + WE<H) 
1160 GOTO 1390 

1£00 REM TALLY FIRST ROUND POINTS 
1£10 IF TR ) = £ THEN RETURN 
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1220 
1230 
i£4© 
1250 
1260 
1270 
12B0 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 

1400 

1410 
15®0 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 

1600 

1610 
1620 
1630 
1640 
1650 
1660 
1670 

1680 

1690 
1700 
1710 
1720 
1730 
1740 
1750 
1770 
1780 



"THE TOP WINNER: 
POINTS. " 
"FOLLOWED BY:" 

= £ TO PL: PRINT N* ( I ) 
FT<I) s" POINTS. " 



"END OF PROGRAM RUN. 



FOR I = 1 TO PL 
WE(I> = TP(I): NEXT s RETURN 
REM FINAL TALLY 
FOR I = 1 TO PL 
FT (I) « WE (I) + TP(I) 
NEXT 
RETURN 

REM TOP WINNER (MORE THAN 1 PLAYER) 
HOME 
I = 1 
PRINT "THE TOP WINNER: " ;N$ ( I ); " WITH": 
PRINT FT(I) 
PRINT 

FOR I = 2 TO PL: PRINT N* ( I ) 5 " WITH" 
PRINT 
NEXT 
PRINT 
PRINT 
END 

REM INSTRUCTIONS 
1$ = "MIND INVASION" 
I = lis HOME 
FOR LX = 1 TO LEN (1$) 
HTAB I: PRINT MID* <I*,LX,1>; 
FOR Y = 1 TO 50: NEXT Y 
1=1+1: NEXT LX 
FOR Y = 1 TO 1000s NEXT 
PRINT 

INPUT "PLAYER NUMBER (1-10) ";PL 
IF PL < ~ OR PL > =11 THEN 1590 
PRINT "PLAY OUTLINE NECESSARY 
INPUT 
IF X$ 
PRINT 
PRINT 
PRINT 
PRINT 
GAME:" 

PRINT "KEEP PLAYING AS LONG AS 
POSSIBLE" 
PRINT "WITHOUT GETTING 'CRUSHED'." 

"YOU, THE USER, WILL BE LOCATED " 
"AT THE CENTER OF THE VIDEO " 
"IN THE FORM OF A BLUE BLOCK. " 
"YOUR ONLY MOVEMENTS WILL BE UP" 
"AND DOWN. YOU WILL DO THIS " 
"WITH THE 'I' AND ' M» KEYS. " 



"PLAYER NUMBER 

< = OR PL > 

"PLAY OUTLINE 

X$ 

= "N" OR X$ = 

"EACH OF YOU " 
"EXPERIENCE A 
"INVASION. THE 



"NO" THEN 2040 

5PL5" PLAYERS WILL" 
NEW FORM OF MIND" 
OBJECT OF THE 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



'PRESS ENTER TO CONTINUE 1 
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179® INPUT X$ 

1 80© HOME 

1810 PRINT "TO TAKE ADVANTAGE OF ANY 

POINTS" 
18£0 PRINT "YOU MUST BE CONSTANTLY MOVING" 
1830 PRINT "UP OR DOWN, THE OUTER 

BOUNDARIES" 
1840 PRINT "OF THE VIDEO WILL CONTAIN" 
1850 PRINT "FLASHING LIGHTS FOR CONFUSION.' 
I860 PRINT "ALSO CONTAINED IN THE 

BOUNDARIES" 
1870 PRINT "ARE BLOCKS, TWO OF WHICH" 
1880 PRINT "WITHOUT NOTICE WILL MOVE VERY" 
1890 PRINT "QUICKLY TOWARD THE CENTER. TO' 
1900 PRINT "YOUR LOCATION, IF YOU CAN " 
1910 PRINT "MOVE OUT OF THE WAY, YOU CAN" 
19£0 PRINT "CONTINUE PLAYING 5 BUT IF, ON" 
1925 FOR LX = 1 TO £000 s NEXT 
1930 PRINT "THE OTHER HAND, YOU ARE 

CRUSHED, " 

1940 PRINT "PLAY WILL ADVANCE TO THE NEXT" 

1950 PRINT "PLAYER, THIS IS ALSO TRUE IF" 

1955 PRINT "YOU COLLIDE WITH THE BLOCKS." 

I960 FOR LX = 1 TO £0002 NEXT LX 

1970 PRINT "PRESS ENTER TO CONTINUE" 
198© INPUT X$ 

1990 HOME s PRINT "THE GAME WILL TERMINATE 

WHEN EACH" 
£000 PRINT "PLAYER HAS PLAYEDA TOTAL OF TWO" 
£010 PRINT "ROUNDS. THE PLAYER FINISHING " 
£0£0 PRINT "WITH THE HIGHEST POINTS WILL BE" 
£030 PRINT "THE WINNER* . . " 
£040 PRINT 

£050 PRINT "NOW ENTER THE FIRST NAMES" 
£060 PRINT "OF THE " ; PL 5 " PLAYERSs" 

£070 FOR I = 1 TO PL s INPUT N* < I ) 

£080 NEXT 

£090 PZ = 1 

£100 PRINT N$(PZ)?" WILL NOW PLAY, PRESS" 
£105 IF PZ > - £ OR TR > « £ THEN £150 

£110 PRINT "THE ENTER KEY WHEN READY." 
£1£0 INPUT S$ 

£130 HOME 

£140 RETURN 

£150 PRINT "THE ENTER KEY WHEN READY"; 
£160 INPUT X*:TI = 0: RETURN 

£900 COLORE s PLOT QU + I , F - 1 : PLOT GUI 

+ I,F - Is PLOT QU + i,E - 1: PLOT QU 

+ I,Es PLOT QU + I,F 
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Trapped for the Apple II 



18 
15 
£0 
30 
48 
50 

60 
70 
80 
90 

108 
118 
120 
125 
138 
135 
140 
1 45 
158 
155 
168 
165 
170 
180 
185 
190 

£88 
£10 

£'£8 
£30 
£48 
£50 
£68 
£65 
£78 
£75 
£77 
£80 

£85 

3£8 
338 
348 

345 



REM PROGRAM TITLE STRAPPED 
PRINT CHR$ <4> ; "BLOADSOUND" 

CLEAR s DIM AA < 1£> , PI ( 1£) , 1$ < 1£> 
* TRAPPED # n 
INPUT "LIST INSTRUCTIONS? 1 ';^ 
"Y" OR W* = "YES" THEN GOSUB 



HOME 

PRINT 

PRINT 

IF W$ 

3588 

HOME : GOSUB 3300 sTU « 1 
QQ = 1:MM = 8sCR = 

GR 
CC " 0sBR = 0sTP = IE + 0A:TR = TP 

REM BORDER GRAPHICS 
X = 10£4sC = £04 sV = 

COLOR* l£s HLIN 8,39 AT 8 

HLIN 0,39 



0,39 

8,39 
0,39 
£,37 
0,39 
£, 37 
INNER 



AT 

AT 
AT 
AT 
AT 
AT 
AT 



1 

39 

38 

8 

1 

39 s 

38 



GRAPHICS 



* ( 
INT 
> 8 



INT ( RND (1) * 
< RND (1) * £0 + 
THEN GOTO £60 
9sR3 = INT < RND 



HLIN 
HLIN 
VLIN 
VLIiM 

VLIN 

VLIN 

REM 
C =z ® 
R = £ 
Rl = 

IF C 
R£ = Rl + 

* 9 + i) 

R4 = Rl + R3sR5 « R 

R6 = INT < RMD (1) * £ 

IF R6 =* £ THEN R4 = R5 

HLIN Rl, R4 AT R 
+ 1 

< > 5 THEN 178 
0, Rl AT R + £ 
8, R£ AT R + 4 
R4,39 AT R - £ 
R5,39 AT R - 4 

> £ THEN GOTO 

> = 1£ THEN R 
188 

< = £6 THEN R 
180 
START POSITION 

3988 



GOSUB 3458 



13 
1) 



+ 4) ) 



(1) 



R3 

+ 



1) 



U = U 
IF U 
HLIN 
HLIN 
HLIN 
HLIN 
IF C 
IF R 
GOTO 
IF R 
GOTO 
REM 
GOSUB 



3£8 

= R 



- 4:C = C + 1 



« R + 4nC = C 



+ 1 : 



PC = ZZ: 

PR = ZZ 



GOSUB 3988 
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350 



360 

370 
390 

410 

420 

430 
440 
441 

442 

445 
450 



IF SCRN( PC, PR) < > OR SCRN ( (PC 
+ £), PR) < > THEN 330 
IF SCRN( PC, (PR + 1>) < > OR 
SCRN( PC, (PR ~ 1)) < > THEN 33(d 

Pi = PC + 2s P2 = PRs COLORE 9s PLOT PC, 

PRs COLOR= 13s PLOT P1,P2 
REM MOVEMENT OF COMPUTER PIECE 



IF SCRN( PC, (PR - 1)) 

1 s GOTO 440 

IF SCRN( PC, (PR + 1) ) 

80T0 440 

IF SCRN( (PC - 2), PR) 

3s GOTO 440 

IF SCRN( (PC + 2), PR) 

4s GOTO 440 

GOTO 810 

COLOR= 5 GOSUB 7000 

PLOT PC, PRs IF SCRN( PI 



= THEN ft = 



= THEN ft = 2: 
« THEN ft - 



« THEN ft = 



P2) = 



THEN 1700 
XB = PEEK < 
THEN 900 

GOTO 1130 

POKE < - 16368), 

470,480,490 



16384) ™ 128s IF XS > 



ON ft GOTO 460, 



470 

480 

490 

710 
720 
730 

-7 /. (?l 

t -Tt. 1 

750 
760 
770 
780 
790 

800 

810 
815 
820 
830 
840 
860 



PLOT PC, PR s MM 
PLOT PC, PRsMM 
PLOT PC, PRs 
PLOT PC, PRs 



= THEN 390 
= THEN 400 



1) THEN 880 
1240 

= 3 THEN QQ = 1 



460 PR = PR ™ is COLORE 9s 
= 0s GOTO 710 
PR = PR + Is COLOR= 9s 
= 0s GOTO 400 
PC = PC - 2s COLORE 9s 
GOTO 760 nn n 
PC = PC + 2s COLOR= 9s 

ROTO 420 

REM DQWN/UP-SEARCH LEFT/RIGHT 
IF SCRN( (PC - 2), PR) = THEN 410 
IF SCRN( (PC + 2), PR) = THEN 420 

If o ss i THEN 390 

GOTO 400 

REM LEFT/RIGHT-SEftRCH DOWN/UP 

IF SCRN( PC, (PR - 1) ) 

IF SCRN( PC, (PR + 1)) 

IF ft = 3 THEN 410 

GOTO 420 

REM TRftPPED (COUNTER) 
ft(QQ) = ft 

IF ft(QO) « ft (00 - 

IF MM > =8 THEN 
CR = CR + 10 
QQ = QQ + Is IF QQ > 
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870 
88© 

890 

900 

910 
9£0 

930 

940 

950 

980 
970 
980 

990 

1000 

1010 
10£0 

1030 
1040 

1050 
1070 
1080 

1090 

1130 
1140 

1170 
1180 
1190 

1£00 
1S10 

1££0 
1240 
1350 
1260 
1£70 
1880 
1290 



GOTO 390 

IF SCRN< (PC + £>,PR> » 13 OR SCRN 

< < PC - £), PR) ~ 13 THEN MM = MM + 1 

GOTO 830 

REM USER PIECE/MOVE PER KEY 



128 



< - 



THEN POKE < 



16368), 0: 
16368), 0: 
16368), 0s 



POKE ( - 16368), 0: 



KE = PEEK ( - 16384) - 

IF KE = 77 THEN POKE 

GOTO 970 

IF KE « 73 THEN POKE ( - 

GOTO 990 

IF KE = 75 

GOTO 1010 

IF KE = 74 THEN 

GOTO 1030 
CC = 0: GOTO 450 

IF SCRN( PI, <P£ + 1)> < > THEN 960 

GOSUB 71002 CGLOR= 0s PLOT P1,P£:P£ 

= P£ + 1; GOTO 1050 

IF SCRN( PI, <P£ - 1)) < > © THEN 960 

GOSUB 7100s COLOR= 0s PLOT Pl,P£sP£ 

= P£ - Is GOTO 1050 

IF SCRN( (PI + £>,P£) < > THEN 960 

GOSUB 7100: COLOR= 0s PLOT Pl,P£sPl 

= PI + £: GOTO 1050 

IF SCRN( <P1 - £>,P£) < > THEN 960 

GOSUB 7100s CQLQR= 0s PLOT Pl,P£sPl 

= PI - £ 

COLOR= 13s PLOT Pl,P£sTP = TP - 1 

REM USERS MOVES (COUNTER) 
CC = CC + Is IF CC > =10 THEN CC = 
0s GOTO 450 

GOTO 900 
CR = CR + 1 

IF CR > = 1000 THEN GOSUB 1450s 

GOTO 1180 

GOTO 450 

REM RECHARGE COMPUTER PIECE 

COLOR* 11: PLOT PC, PRs 

£00 s NEXT 

GOSUB 7£00 

COLOR= 0s PLOT PC, PR 

GOSUB 1510s GOSUB 3450s GOTO 

REM TRAPPED? 

REM CHECK CHARGE RATE FIRST 

IF CR > = 9£5 THEN 1£80 

GOTO 1£90 
CR = 1000s GOTO 1370 

REM TRAPPED COMPUTER PIECE 



FOR C = 1 TO 



450 
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1300 


L = 


131© 


COLOR= 0s PLOT PC, PRs FOR TI = 




1 TO 100s NEXT 


13£0 


COLOR= lis PLOT PC, PRs FOR TI = 1 TO 5 


1340 


NEXT 


1350 


L=L+ 1; IFL ( = £ THEN 1310 


1360 


GOTO 1600 


137© 


GOSUB 1450 


1380 


P = P + 6 


1390 


GOTO 450 


1450 


REN MESSAGE 


1460 


MG = 1744sM$ = "RECHARGING" 


1470 


FOR I = 1 TO LEN <M*> 


1480 


POKE MG, ASC ( MID* (M*, 1,1)) + 128 


1490 


NO = NG + is NEXT 


1495 


GOSUB 7300 


1500 


POKE NG, 160s RETURN 


1510 


MG = 1744 


15£0 


FOR I = 1 TO LEN (M$) 


1530 


POKE NG, 160 


1540 


MG = MG + Is NEXT 


1550 


POKE NG, 160s RETURN 


1600 


REM MESSAGE (TRAPPED) 


1610 


MG = 1744 


16£0 


M$ = "## TRAPPED ##" 


1630 


GOSUB 1470 


1640 


GOTO 1910 


1700 


REM USER "BURNED" 


1710 


MG = 1744 


17£0 


M$ - "# USER BURNED *" 


1730 


GOSUB 1470 


1740 


REN LEAVE USER POSITION AS-IS 


1750 


L = 0sMM = 


1760 


COLORE 0s PLOT Pi,P2s FOR TI = 1 TO 




100s NEXT 


1770 


COLOR- 13s PLOT Pi g P£s FOR TI=1 TO S 


1790 


NEXT s IF L < =1 THEN L = L + is 




GOTO 1760 


1800 


BR = BR + Is GOSUB 1510s GOSUB 3450 


1810 


IF BR > =6 THEN GOSUB 1830s GOTO 




1870 


18£0 


GOTO 445 


1830 


L = 


1840 


REM SOUND 


1850 


REN SOUND 


I860 


HOME s RETURN 


1870 


PRINT 


1880 


PRINT "YOU'VE BEEN BURNED" 3 BR; "TIMES 
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189® PRINT "SUCKER! ! ":TP = 

1300 PRINT "YOU* RE OUT OF THE GAME...": 

GOTO £000 
1910 REM TRAPPED 
13£0 GOSUB 1830 

1930 PRINT "YA GOT ME TRAPPED, TURKEY!!!"; 
1340 PRINT "YOUR TOTAL POINTS NOW EQUAL "; 
1950 PRINT TP 
1360 PRINT "YOU MADE A TOTAL OF ";TR - TP;" 

MOVES" 

1370 PRINT "BEFORE TRAPPING ME " 

8000 REM PLAYER ADVANCE/POINTS 

2010 PI <TU) = TP 

£0£0 IF TU = N THEN SI 00 

2030 TU « TU + 1 

£040 PRINT "PRESS RETURN, ";I*(TU) 

£050 INPUT W$:CLS 

£060 GOTO 70 

£100 REM ALL PLAYED 

£110 REM SORT NUMBERS/PLAYERS 

£1£0 IF N = 1 THEN £££0 

£130 F = 0:AA = 1 

£140 IF PI (AA) > = PKflfl + 1) THEN £190 

£150 P = PI(AA)sPKAA) = PKfifl + i) 

£160 PKflfl + 1) « P:I* = I$(AA) 

£170 I*(ftfl> « I*(flfl + l):I*(flfl + 1) = I* 

£180 F = 1 

£190 IF AA < N THEN AA = AA + 1: GOTO £140 

££00 IF F * 1 THEN £130 

££10 GOTO ££60 

£££0 PRINT "YOU'VE PLAYED BY YOURSELF, 

AGAINST" 
££30 PRINT "THE COMPUTER. YOU WERE 

BURNED ";BR 
££40 PRINT "TIMES. FINAL TRAPPING SCOREs" 

:PI (TU) 
££50 GOTO £330 
££60 I « 1 

££70 PRINT "BEST TRAPPER ";I$(I) 

££80 PRINT "TOTAL POINTS^" ; PI < I ) 

££30 PRINT "FOLLOWING n ;I*(I) 

£300 FOR I = £ TO N: PRINT I$(I); 

£310 PRINT " WITH A SCORE OF: "5 

£3£0 PRINT PKI) 

2325 FOR TI = 1 TO 1000s NEXT TI,I 

233^ PRINT 

£340 PRINT "END OF PROGRAM RUN » 

£370 PRINT "UNLESS ALL WANT TO PLAY AGAIN???" 
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£38© PRINT "IF BO, TYPE RUN." 

£390 PRINT : FOR TI « 1 TO 15005 NEXT 

£400 PRINT "END" 

£410 END 

3300 REM PLAYERS (NUMBER, NAMES) 

3310 PRINT "ENTER NUMBER OF PLAYERS" 

33£0 INPUT N 

3330 IF N < = OR IM > =11 THEN 3310 

3340 PRINT "NOW ENTER THE FIRST NAMES" 

3350 PRINT "OF THE "sN?" PLAYERS" 

■3360 FOR I =1 TON 

3370 INPUT I$(I) : NEXT 

3380 PRINT 

3390 PRINT "THE NAME OF THE PLAYER WHO'S 

TURN" 
3400 PRINT "IT IS WILL BE PRINTED AT THE 

BOTTOM" 
3410 PRINT "OF THE GAME BOARD- " 
34£0 FOR TI = 1 TO l£00s NEXT 
3430 HOME 
3440 RETURN 
3450 REM PLAYER 
3460 MG = 1616 

3470 FOR I = 1 TO LEN <I*<TU>) 
3480 POKE MG, ASC < MID$ < I* <TU> , I, 1 ) ) :MG 

= MG + 1 
349® NEXT 2 POKE MG, 3£s RETURN 
3500 REM INSTRUCTIONS 
3510 PRINT "UP TO TEN PLAYERS CAN" 
35£0 PRINT "TRY TO OUTWIT THE COMPUTER AND" 
3530 PRINT "MANEUVER ITS PIECE INTO A 

SITUATION" 
3540 PRINT "WHERE IT WILL BECOME TRAPPED. " 
3550 PRINT "THE COMPUTER'S PIECE WILL LOOK ' 
3560 PRINT "LIKE AN ORANGE BLOCK* YOU, 

THE USER, " 
3570 PRINT "WILL HAVE A YELLOW BLOCK." 
3580 PRINT "THE COMPUTER WILL MOVE ITS 

PIECE" 
3590 PRINT "ALL AROUND THE GAME BOARD, 

CHANGING" 
3600 PRINT "DIRECTION WHEN IT SENSES 

AN OBSTACLE. " 
3610 PRINT "YOU WILL FOLLOW THE COMPUTER'S 

PIECE" 
3620 PRINT "AND TRY TO MANEUVER IT TO A 

SECTION" 
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3630 PRINT "OF THE GAME BOARD WHERE IT 

WILL BE" 
3640 PRINT "TRAPPED—THAT IS, WHERE IT 

CAN ONLY" 
3650 PRINT "MOVE LEFT OR RIGHT. " 
3660 PRINT 
367© INPUT "PRESS RETURN TO CONTINUE" ;W*: 

HOME 
3680 PRINT "THE COMPUTER'S PIECE WILL 

CONTAIN A" 
3690 PRINT "' CHARGE' $ IF YOU SIMULTANEOUSLY 

END AT" 
3700 PRINT "THE SAME SPOT, YOU'LL GET ' 

BURNED' . " 
3710 PRINT "SIX 'BURNS' AND YOU'RE OUT OF 

THE" 
3780 PRINT "GAME. YOU WILL MOVE YOUR PIECE" 
3730 PRINT "BY USING THE 'J' AND ' K' " 
3740 PRINT "KEYS TO MOVE LEFT AND RIGHT, 

AND THE" 
3750 PRINT "'I' AND ' M' KEYS TO MOVE UP 

AND DOWN. " 
3760 PRINT "WHENEVER YOU MOVE, THE 

COMPUTER WILL" 
3770 PRINT "'BLANK' ITS PIECE. YOU WILL 

BE ALLOWED" 
3780 PRINT "ONLY TEN CONSECUTIVE MOVES 

AT ONE " 
3790 PRINT "TIME. WHEN YOU WISH TO MOVE, 

HOLD" 
3800 PRINT "DOWN THE CORRECT MOVEMENT KEY. " 
3810 PRINT "POINTS WILL BE DETERMINED BY 

HOW" 
3B2® PRINT "MANY MOVES IT TAKES THE USER" 
3830 PRINT "TO TRAP THE COMPUTER'S PIECE." 
3840 PRINT "REMEMBER, TO TRAP THE 

COMPUTER'S PIECE, " 
3850 PRINT "ONLY ALLOW IT TO MOVE LEFT 

AND RIGHT. " 
3860 INPUT "PRESS RETURN TO START:" 5 W* 
3870 HOME : RETURN 

3900 ZZ = INT (17 * RND (1) +20) 
3910 RETURN 
7000 POKE 769, 35 
7010 POKE 770, £5 
70£0 POKE 768, 1 
7030 CALL 771 
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7@4® 


RETURN 


7100 


POKE 769,93 


7110 


POKE 770,5 


7120 


POKE 768, 1 


7130 


CALL 771 


7140 


RETURN 


7200 


FOR XQ = 130 TO 270 STEP 20 


7205 


IF XQ > 254 THEN XQ - 255 


7210 


POKE 769, XQ 


7220 


POKE 770,6 


7230 


POKE 768, 10 


724© 


CALL 771 


7250 


NEXT 


7260 


RETURN 


7300 


FOR XQ = 1 TO 4 


7310 


POKE 769,20 


7320 


POKE 770,4 


7330 


POKE 766,5 


7340 


CALL 771 


7350 


POKE 769,56 


7360 


POKE 770,5 


7365 


POKE 768,5 


7370 


CALL 771 


7440 


NEXT- 


7450 


RETURN 
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Elevator for the Apple II 



10 

£0 

30 
4© 
50 
60 
70 
80 
90 

100 

110 

115 
120 
1£5 
130 
140 
145 
150 
155 
160 
170 
180 
185 
190 

£00 

£10 
££0 
£30 
£40 
£50 
£55 
£60 

£70 

£8.0 

£90 

300 

310 

3£0 



t G*<60> 



'*** ELEVATOR ***' 



CY/N) 

= 1 



;P$ 



REM PROGRAM TITLE: ELEVATOR 
P = £0: HOME 

DIM F(60),F$(60), 

DIM KO(60) 

HTAB 10: PRINT 

PRINT 

"INSTRUCTIONS REQUIRED 

I*: IF 1$ = "N" THEN N 

"FIRST NAME: " ; N* 

: IF N = 1 THEN £30 

"PRESENT OCCUPATION: 

£150: HOME 

"YOU HAVE JUST BEEN FIRED AS A " ; 

P$« " ! ! " 

"BUT, YOU ARE IN LUCK. I HAVE JUST" 

"HIRED YOU TO BE AN ELEVATOR » 

"ATTENDANT IN MY COMPUTER-" 

"I ZED DEPARTMENT STORE. " 

"YOUR JOB WILL BE SIMPLE," 

N*5". ALL YOU HAVE TO DO " 

"IS REMEMBER WHAT IS CON-" 

"TAINED ON EACH OF SIXTEEN" 

"FLOORS SO THAT YOU CAN TAKE" 

"ALL OF MY CUSTOMERS TO THE" 

"RIGHT LOCATION- . . " 



PRINT 
INPUT 

INPUT 

PRINT 

INPUT 

GOSUB 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

REM WHAT'S ON EACH FLOOR? 

FOR I = £ TO 19: READ F* ( I ) 

IF N = 1 THEN 370 

POKE < - 16368),©: GOSUB £150: 

PRINT "I ALMOST FORGOT TO TELL 

YOU — THE" 

PRINT "CUSTOMERS, WHEN 

THE" 

PRINT "ELEVATOR, WILL 

THEY ARE" 

PRINT "SHOPPING FOR. 

YOU" 

PRINT "AGAIN, BUT FOR EVERY CUSTOMER 

YOU PLACE" 

PRINT "ON THE RIGHT FLOOR, YOU'LL 

BE PAID" 

PRINT "*1®.00. THAT WILL BE YOUR ONLY 

WAGE ! " 



NEXT 



HOME 



STEPPING ONTO 



TELL YOU WHAT 



THEY WON' T TELL 
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63® 

34© 
350 

355 
360 
370 

38® 
390 

395 

400 

410 

4£0 
430 
440 
450 
460 
470 
473 
475 
480 

490 

500 

510 
520 
530 
540 

550 
560 
570 
580 
590 

600 

610 
620 
630 
640 
645 
650 
660 



PRINT "CUSTOMERS 

AND OFF" 

PRINT "THE ELEVATOR 

AND" 

PRINT "YOU WILL NEED 

THESE, TOO, » 
PRINT N$?" ! " 



WILL BE GETTING ON 

AT DIFFERENT STOPS, 
TO REMEMBER 



POKE ( - 16368) 



GOSUB £ 150 s 
i FLOORS and 



HONE 



1 * 800s PRINT 



PRINT "HERE PRE THE 

CONTENTS:" 

FOR I - £ TO 16 

PRINT I ;") »;F*(I) 5 

IF I - 8 THEN TT 

GOSUB £190 

IF I > 

IF I > 

: GOTO 

IF I > 

IF I > 

PRINT " 

PRINT ' 

PRINT J 

IF RX = 

NEXT 

REM VARIABLE RX FOR PRINT ELEMENTS 

FOR I = 1 TO 6; PRINT s NEXT :TT = TT 

+ £000 

GOSUB £190s HOME :C = 0:GK = 



= £ AND I < = 
= 6 AND I < = 
470 


5 THEN 440 

10 THEN PRINT 


= 11 AND I < = 

= 15 AND I < = 

" $F*<17> s GOTO 

" 5F*<1B) : GOTO 

"$F*<i9> 

1 THEN RETURN 


= 14 THEN 450 
= 16 THEN 460 

470 

470 



PRINT "YOU SHOULD BE ALL SET, " 
TT = TT - l£00s GOSUB £1903 RX = 

REM GET CUSTOMERS 
C = INT ( RND <1) * 10 + 1) 

PRINT N*;% YOU NOW HAVE " ?C$" 

CUSTOMER (S) " 

PRINT "BETTING ONTO MY ELEVATOR 

REM GET C RESPONSES 
I = 1 

REM FLOOR NUMBER 
F = INT ( RND Q> * 14 + £> 
F(I> = F:I = I + 1 

IF I < = C THEN 590 

REM FLOOR TITLES 

FOR I = 1 TO C 
G*<I) = F$<F(I>> 
KO<F<I>) = KO<FU>> + 1 

NEXT 

GOSUB £190s PRINT 



;N$ 
1 



440 



67® 

680 
690 
700 
71© 
720 
730 
740 
750 
760 
770 
780 
790 

800 

810 
820 
S3® 
840 
850 
860 

865 
868 
870 
880 
890 
893 
895 

900 

905 
910 

915 

920 

930 

940 
950 
960 
970 
980 
990 

1000 

1010 
1020 
1030 



"THE CUSTOMER'S DESTINATIONS: 1 



I = FL TO C 



THEN 760 



= 14 
= 16 



THEN 
THEN 



770 
780 



PRINT 

:FL = 1 

PRINT : FOR 

PRINT B$U) ; 
F = F<I> 

IF F > 

IF F > 

IF F > 

PRINT 

NEXT : 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

HOME 

PRINT "PRESS <U> FOR <UP> " 

PRINT "PRESS <D> FOR <DOWN> " 

PRINT "THEN ENTER THE FLOOR NUMBER" 
HH = 0: REM DIRECTION 

POKE ( - 16368) ,0: GOSUB 216© 
D * A: POKE ( - 16368), 0s IF D = 85 
THEN D$ = "UP": GOTO 870 

IF D « 68 THEN D$ = "DOWN": GOTO 870 

GOTO 950 



= 2 AND F < 
= 11 AND F 
= 15 AND F 

1 FLOOR" 
GOTO 790 

440: GOTO 

450: GOTO 

460: GOTO 

2150 



750 
750 
750 



PRINT 
PRINT 
INPUT 
VTAB U 
IF FR = 



"DIRECTION: 



:D$ 



"FLOOR 
FR 



NUMBER"; 



IF 

IF 
IF 
IF 



< 



TF 
TF 



HOME 



FR 

FR 

FR 

FR 
GOTO 1260 
GOSUB 2190 
START 
IF D$ 
IF D$ 
PRINT 
PRINT : 
REM UP 
IF TF > = 17 
GOTO 1300 
PRINT "YOU ARE 
" ;N$ 

PRINT "YOU CAN 
GOTO 960 
T$ - "TGP":H$ = 



HTAB 15:PRINT "PLEASE WAIT. 
1 AND TF = THEN 1280 
1 OR FR > 16 THEN 80© 
TF THEN 1280 

AND D* = "UP" THEN 126© 
AND D$ = "DOWN" THEN V = 



REM PAUSE BEFORE 



= "UP" THEN 970 
= "DOWN" THEN 1040 
"SELECT A DIRECTION, 
: GOTO 810 



!N$: 



THEN 1030 



DM THE 



T$: 



FLOOR, 



NOT GO ANY 



;H*; 



"HIGHER": GOTO 1000 
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1840 
185© 

1060 

1O70 

1080 

1085 

1090 
1100 

1110 

ne© 

1138 
1148 

1158 
1160 
1178 
1180 
1130 

1200 

1210 

4 ■*-«■-« n, 

1230 
1240 
1258 
1280 
1265 
1278 
1275 
1280 
1298 
1308 
1318 
1328 
1325 
1338 
1335 
1340 
1350 
1380 
1370 
1380 
1398 
1488 
1410 
1428 
1438 
1448 
1450 



IF IF < =1 THEM 1060 

SOTO 1070 
T* = "BOTTOM" :H$ = "LOWER": GOTO 1000 

REM DOWN CONTINUED MOVEMENT 
FS = P + 8:NN = 1: IF FS > 28 THEN FB 
= 28 

IF P > 

VTAB P: 



FOR T = 1 TO 40s 
VTAB Ps HTAB 28: 

IF P < 



= 28 THEN GOTO 1130 
HTAB 28: PRINT FF 
NEXT 

PRINT " " sP = P + 1 
> FS THEN 1085 
REM CONTINUE IF NOT ON FLOOR 
IF TF < > FR THEN 1168 
GOTO 1588 
FS = FS + 7 
IF P > = £0 THEN 1198 
GOTO 1098 

VTAB P: HTAB 28: PRINT " " : P - 4 
FS = P + 8:FF = FF ~ 1 :TF = TF - 1 
GOTO 1090 

rvr-iut htn-r i tr-vr-rv rut r\nr>t r- nnnnnrtM 

ncci jmu i uol,u x (M r-ir*r*i-c: rnuunnn 

REM NOT USED IN APPLE PROGRAM 

IF NN = 1 THEN 1100 

GOTO 1340 

PRINT "IF WANTING TO GO "jD*;", USE ft" 

IF V = 1 THEN V = 0s PRINT "USE A 

PRINT "HIGHER NUMBER THAN THIS FLOOR" 

GOTO 1298 

PRINT "YOU ARE ON THAT FLOOR," ;N*; "!! » 

GOSUB 2198: GOTO 8m 

REM UP MOVEMENT 

IF TF = 8 THEN 1468 
FS » P - 8s IF FS < =4 THEN FS = 4 

REM NOT USED IN APPLE PROGRAM 

IF P < =4 THEN GOTO 1438 

VTAB P: HTAB 20: PRINT FF 

FOR T = 1 TO 50: NEXT 

VTAB P: HTAB 20: PRINT " ":P = P - 1 

IF P < > FS THEN 1325 

REM CONTINUE IF NOT ON FLOOR 

IF TF < > FR THEN 1400 

GOTO 1580 
FS = FS - 7 

IF P < =4 THEN 1438 

GOTO 1325 

VTAB P: HTAB 28: PRINT " " : P = 28 
FS = P - 8sFF = FF + 1:TF = TF + l 

GOTO 1325 
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1460 IF = i:P = i£:FF = 1 

1470 FS = P ~ 7s GOTO 13£5 

1500 REM ON FLOOR REQUESTED 

1510 REM NOT USED IN APPLE PROGRAM 

15£0 VTAB P: HTAB £05 PRINT FFs GOTO 1540 

1530 VTAB P: HTAB £0: PRINT "1"; 

1540 FOR I = 1 TO C 

1550 IF FR = F(I) THEN 1570 

1560 NEXT sKO<FR> = KO(FR) - KB: GOTO 1600 

1570 PA = PA + 10sKG = KG + 1 

1580 F(I) - 0:XX = 1 

1590 GOTO 1560 

1600 REM DID CUSTOMERS WANT OFF HERE? 

1610 IF XX = THEN 1630 

1620 XX = 0s GOTO 1770 

1630 PRINT N$;% NO CUSTOMERS WANTED TO 

GET OFF" 
1640 PRINT "ON THIS FLOOR. ..." :NC = MC + 1 
1650 REM MORE CUSTOMERS STEPPING ON 
1660 IF FZ = 1 OR FR = 1 THEN AA = lsFZ = 
1670 IF AA = 1 THEN 1690 
1680 GOTO 1730 

1690 YU = INT ( RND (1) *5+l>sYY=C:C= 
C + YU:C£ = YU 

1700 IF C > =10 THEN HV = 1:C = C - C£: 
GOTO 1730 

1710 REM GET DESTINATIONS 

17£0 GOTO 1800 

1730 REM CONTINUE IF NOT FINISHED 

1740 KG = 0s IF GK > = C THEN 1940 

1750 GOSUB £190 

1760 GOTO 800 

1770 KG = KG ** KO<FR) :KO<FR) = 

1775 PRINT KG?" CUSTOMERS JUST" 

1780 PRINT "STEPPED OFF MY ELEVATOR, " ; 

1790 PRINT N$$" !": GOSUB £700 

1795 GK = GK + KG 

1800 REM YY MORE DESTINATIONS 

1810 YU = ABS <C - YY) : IF GK >C THEN 1940 

1815 IF YU < =0 THEN PRINT "NO ONE GOT 
ON- " s GOTO £300 

18£0 PRINT N$?% YOU JUST HAD ";YU$" MORE" 

1830 PRINT "CUSTOMERS STEP ONTO THE" 

1840 PRINT "ELEVATOR, THE DESTINATION (S) ; " 

1850 KG - 0: PRINT : FOR I = YY M TO C 

I860 F = INT ( RND <I) * 16 + 1> 

1865 IF F = TF THEN I860 

1870 IF F = 1 THEN F$ < 1 ) = "GROUND" :FZ = 1 
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1875 
188© 
1890 

1900 

1910 
19£0 
1930 
1940 
1950 

I960 
1965 
1970 
1980 
1990 

£000 
£010 

£0£0 
£030 
£040 
£050 
£060 
£070 
£080 
£090 

£100 

£110 
£1£0 
£150 
£160 
£170 
£180 
£190 
££00 
££10 
£300 
£310 
£3£0 
£330 
£340 
£350 
£360 

£370 
2380 

£390 

£39!: 



KO(F) = KO<F) + 1 

F(I) =r Fs NEXT s REM FLOORS 

REM TITLE OF FLOORS 

FOR I = YY + 1 TO C 
G$(I) = F*<F<I>> : NEXT 
FL = YY + 1 

GOTO 680 

REM STOP/CONT 

PRINT s PRINT n YOU HAVE NOW 

COLLECTED : " 

PRINT "*" ;Pfi: PRINT : GOSUB £190 

PRINT s GOSUB £500 

IF JV = 1 OR GK } = C THEN 1990 

GOSUB £190s GOTO 800s REM ALL NOT OFF 

PRINT ; GOTO £300 

REM DATA FOR FLOORS 

DATA WOMENS, MENS, CHILDRENS, INFANTS 

DATA TOYS, CARPETS, COMPUTERS 

DATA APPLIANCES, FURNITURE, HARDWARE 

DATA HOBBY, AUTO, OFFICE 

DATA BATHROOM, BEDROOM 

DATA CLOTHES, SUPPLIES, ITEMS 

REM DATA ELEMENT 17 WILL BE USED 

REM WITH ELEMENTS £-5 

REM DATA ELEMENT 18 WILL BE USED 

REM WITH ELEMENTS 11-14 

REM DATA ELEMENT 19 WILL BE USED 
WITH ELEMENTS 15 & 16 

A KEY. . - " 
1£8 



REM 

PRINT : PRINT "PRESS 
A = PEEK ( - 16384) 
IF A < = 3£ THEN 



POKE < - 16368), 0s 



LOOP 
TO TT 



NEXT 



160 

RETURN 
REM TIME 
FOR T = 1 
GOTO £180 
REM CONTINUE? 

PRINT "WOULD YOU LIKE TO TAKE 
"SOME MORE CUSTOMERS, " i 
"YOUR TOTAL EARNINGS 



PRINT 

PRINT 
PRINT 
INPUT M 
IF A* ( 
£400 
TT = £000sJV = 0s PRINT- 
PRINT "YOU ARE ON FLOOR 
FOR I = 1 TO 16:KP = KP 



SO 



ON" 
FARs"? 



> "Y" AND Af < > "YES" THEN 



jTF 
KQU) 



NEXT s 
NC = 0s 



IF KP > 
GOTO 490 



THEN GOTO 1730 
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£400 PRINT 

£410 PRINT "END OF ELEVATOR" 

£420 END 

£500 REM POINT SCALE/PAY DEDUCTION 

£510 IF NC < =0 THEN HC = 0: RETURN 

£520 PRINT "YOU MADE " ;NC$ " STOPS THAT WERE" 

£530 PRINT "NOT NECESSARY, " 5N*;". YOU" 

£540 PRINT "WILL TAKE A DEDUCTION IN PAY" 

£550 PRINT "OF $£0. O0 FOR EACH ONE OF" 

£560 PRINT "THOSE STOPS, TOTAL" 3 

£570 m = NC * £0: PRINT "*" $m 

£580 PRINT "LEAVING YOU "; 

£530 PA * PA - NH 

£595 HC = 

£600 PRINT "$";PA: GOSUB £190 

£610 RETURN 

£700 REM ANY TIPS? 

£710 IF KG < =1 THEN RETURN 

£7£0 AA = INT < RND (1) * 2 + i) 

2730 IF AA = 1 THEN RETURN 

£740 TI = INT < RND (1) * 100 + 1) 

£750 PA = PA + TI 

£760 PRINT 

£770 PRINT "YOU'RE IN LUCK, "$N*?% A" 

2780 PRINT "NICE CUSTOMER JUST GAVE " 

£790 PRINT "YOU A TIP OF"; 

£800 PRINT "*"?TI 

£810 GOSUB £190: RETURN 
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Farewell for the Apple I! 



18 
£8 
£5 
38 
35 
48 
45 
58 
55 
68 
65 
78 

75 
8^ 
85 
98 



188 
185 
118 
115 
ISO 
125 
138 

135 
148 
145 
158 

155 

168 

165 
178 

175 

188 



REM PROGRAM TITLEsFAREWELL 

HOME : HTAB 12: PRINT "*** FAREWELL #•&#" 

PRINT 

INPUT "NUMBER PLAYING (1-18)" 5 A 

IF A < 1 OR A > 18 THEN £5 

PRINT "THE " ?A$" PLAYERS' FIRST NAMES:" 

= 1 TO A 

Q*<I> : NEXT 



FOR I 

INPUT 

PRINT 

PRINT 

INPUT 

IF X$ 

£18 

PRINT 

PRINT 

PRINT 

PRINT 

STUDY 

PRINT 



§U « 1 

"ANY OF YOU NEED TO SEE" 

"THE INSTRUCTIONS? " 5X* 

< > "Y" AND X$ < > "YES 1 



THEN 



"READ CAREFULLY, IT COULD MEAN" 

"YOUR LIFE (OR THE SAME! !>,»«" 

"EACH PLAYER WILL SEE AND 

A" 

"MATRIX OF 6 BY 5 SQUARES 



(POSITIONS)" 

PRINT "THESE WILL RANGE FROM THE " 
PRINT "LETTERS A THROUGH Z WITH" 
PRINT "FOUR SPACES BLANK, TO PLAY : " 
PRINT "THE COMPUTER WILL SELECT FIVE" 
PRINT "POSITIONS AND PLACE COBRAS" 
PRINT "WITHIN EACH. THE COMPUTER WILL" 
PRINT "SHOW YOU WHERE THREE OF THE 
COBRAS ARE" 



5 INPUT "PRESS RETURN, PLEASE s";X* 

"NOW THE COMPUTER WILL SELECT A" 
"POSITION AND FLASH AN ASTERISK" 
"THERE. EACH PLAYER MUST ENTER 

"MEMORY THE NUMBER WHICH WAS IN 

"POSITION. IF CORRECT, THE PLAYER" 
"GAINS 1888 POINTS? IF INCORRECT, 



AND. 



IBS 



PRINT 
HOME 

PRINT 
PRINT- 
PRINT 
FROM" 
PRINT 
THAT" 
PRINT 
PRINT 
THE" 

PRINT "PLAYER LOSES 1888 POINTS. 
. IF YOU" 

PRINT "SELECT A POSITION WHERE 
THERE* S A" 

PRINT "COBRA- „ „ YOU 9 RE OUT OF THE GAME, 
DEAD I " 
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190 PRINT "SELECTION WILL CONTINUE FOR AS 

LONG AS" 
195 PRINT "EACH PLAYER WANTS OR UNTIL 

TWENTY-ONE" 
£05 PRINT "POSITIONS HAVE BEEN ELIMINATED." 
£10 INPUT "PRESS RETURN, PLEfiSEs " »X*s 

GOSUB ££0 
£13 HOME s GOTO 300 
££0 DIN L$<31>, PR (31), PC(3i) f L(31) 
££5 REM LETTERS? 
££8 IF SL < > THEN PRINT "ARRANGING 

LETTERS. . . " 
£30 L = 65 g I * i-pz « 1000 
£35 L$(I) « CHR$ (L)sL<I) = I 
£40 IF I = £7 THEN £55 
£45 I=I+lgL=L+ls GOTO £35 
£50 GOTO £35 

£55 REM SORT LETTERS RANDOMLY 
£60 J = 1 

£65 N « INT < RND (i)*(I-l)+i) 
£70 IF L(N) =0 THEN £65 
£75 L*(J) * CHR$ <N 4- 64) 
£B0 L(N) = 0:J = J + 1 
£85 IF J = I THEN RETURN 
£90 GOTO £65 
300 REM POSITIONS 
305 PC=5:PR=5sI=l5PL=PR+£sJ= 

IsPK » PC 
310 PR(I) = PR:PC<I) = PCsL(I) = I 
315 PC = PC + 6s I = I + 1:J = J + 1 
3£0 IF I = £7 THEN 345 
3£5 IF J = 7 THEN 335 
330 GOTO 310 

335 PR = PL: PL = PL + £:J = 1 s PC = PK 
340 GOTO 310 

345 REM THE REMAINING FOUR 

350 L$(I) = " ":PR<I> = PRsPC(I) « PCsL(I)= I 
355 PC=PC+6:I=I+lsJ=J+l 
360 IF J = 7 THEN 370 
365 GOTO 350 

370 REM MOVE THE FOUR BLANKS 
375 I = Is J - 1:L = £7 
380 N = INT ( RND (1) * £6 + 1) 
385 IF L(N) =0 THEN 3BQ\ 
390 F$ = L$(N)sL$<N) = L*<L) 
395 L$<L) = F$sL<N) = 
400 L = L + is IF L = 31 THEN 410 
405 GOTO 380 
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410 
415 
420 

4£5 
430 
435 
440 
445 
450 
455 
460 
465 
470 
475 
480 
485 
490 
495 

500 

505 
510 

515 
5£0 
523 
525 
530 
535 

540 



560 
565 
575 
580 
585 

590 
595 

600 

605 



PRINT L$<I) s 



'©• 



«@» 



NEXT 



2 NEXT 



•PLAYER: 



REM NOW PRINT LETTERS 

HONE s FOR I = 1 TO 30 

VTAB PR (I) s HTAB PC ( I ) : 

NEXT 

REN FINAL GRAPHICS 
X = £ 

FOR Y = 4 TO 13 

VTAB Ys HTAB Xs PRINT 
X = X + 6 

IF X > =40 THEN 460 

GOTO 435 

FOR X = £ TO 38 

VTAB Ys HTAB Xs PRINT 
Y = Y - £ 

IF Y « £ THEN 490 

IF Y « £ THEN 490 

GOTO 460 

REN COBRA POSITIONS/PLAYER 
C = Is VTAB 18s HTAB 5s PRINT 

H ?Q$(U> 5 
N = INT ( RND <I> * <I - 5) •+• 1) 

IF L(N) = OR L(N) = 100 THEN 500 
CBKC) = PR(N):CB£<C) = PC(N)sF$ = 

L*(N) :C*<C) = F$ 
L$(N) = CHR$ (4£)sL(N) = 100 

IF C - 5 THEN 560 

IF C < =3 THEN GOSUB 
C - C 4- Is GOTO 500 
XX = 0s REN DEFINE 3 (i 

VTAB PR(N) s HTAB PCW) s 

FOR T = 1 TO 100s NEXT 

VTAB PR(N) s HTAB PC(H) s 

FOR T = 1 TO 50s NEXT 

VTAB PR<N)s HTAB PC(N)s 

IF XX = THEN XX = XX 

RETURN 

REN COMPUTER SELECT/ IF NOT DONE 
SL = 1 

IF SL > = ££ THEN 1000 

GOSUB 1£00 

VTAB 16 3 HTAB 5s PRINT "I WILL SELECT 

A POSITIONS " 
IM r= INT ■< RND (1)*(L-1>+1): 

GOSUB 1£40 

IF L<N) =0 OR L(N) = 100 THEN 590 
F$ = L*(N)s IF SL = i THEN GOSUB o3di 
C$ = F$sNU - Ns GOSUB 1300s GOSUB 1£00 



530 

FOR COMPUTER) 
PRINT L$CN> 53 

PRINT " " ss 

PRINT F$; 
I- 1 s GOTO 535 
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610 VTAB 16: HTAB 5: PRINT "SELECT A 

POSITION BY LETTER ONLY, " $ 
615 VTAB 17: HTAB 5: PRINT Q$<U) 
6£0 INPUT L* 

6££ GOSUB 1£40: GOSUB i£00 
6£5 I = 1 

635 IF L$ = L*<I) THEN 665 
645 1=1+1 

655 IF I > =31 THEN 675 
66® GOTO 635 

665 N = I:F$ = L$: GOSUB 53© 
67® GOTO 800 

675 REM COBRA POSITION OR BLANK 
680 GOSUB 1£00 
685 GOSUB 1£00 
690 FOR I = 1 TO 5 
695 IF L$ = C*<I> THEN 735 
705 NEXT 
715 VTAB 16: HTAB 5: PRINT "YOU CANNOT 

SELECT A BLANK i ! " 
7£5 GOSUB 1£40: GOSUB 1£00: GOTO 610 
735 REN COBRA 
745 VTAB 16: HTAB 5: PRINT "YOU'RE DEAD, 

";Q$(U> 5" ! I !" 
755 VTAB 17: HTAB 5: PRINT "THAT IS A 

COBRA POSITION! ! !" 
765 VTAB 18: HTAB 5: PRINT "** FAREWELL **" 

: GOSUB 1£40 
770 Z2 = Is GOSUB 1£00: GOTO 10£0 
800 GOSUB l£40s GOSUB I £00: IF L* < > C$ 

THEN 900 
805 VTAB 16: HTAB 5: PRINT "CONGRATULATIONS 

";Q*(U> ;".. . " 
810 VTAB 17: HTAB 5: PRINT "YOU'VE JUST 

GAINED ";PZ; 
815 PRINT "POINTS! ! " 
817 GOSUB 1£40: GOSUB 1£©0 
8£0 REN P I NTS/CONT I NUE 
8£5 W<U) - W<U) + PZ 

B3QS VTAB PR(NU): HTAB PC<NU): PRINT " "5 
835 VTAB 19: HTAB £0: PRINT "TOTAL POINTS: 

";W<U> 
840 GOSUB 1£40: GOSUB 1£00 
B45 VTAB 16: HTAB 5: PRINT "YOU NQUJ HAVE 

";W<U> 5" POINTS. . ■ " 
850 VTAB 17: HTAB 5: PRINT "...CONTINUE 

(Y/N) " ; 
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855 INPUT X$s IF X$ = "N" THEN 1020 

860 SL = SL + lsL(NU) = 0sL$<NU) = " H 

865 GOTO 575 

900 REM WRONG POSITION 

905 VTAB 16s HTAB 5s PRINT "WRONG 

POSITION, ,( $ChMU> 
910 VTAB 17s HTAB 5s PRINT "YOU ARE NOW 

MINUS " ;PZ; 
915 PRINT " POINTS. . . " : GOSUB 1240 
920 GOSUB 1200s W<U) = W(U) - PI 
925 VTAB 19s HTAB 20s PRINT "TOTAL POINTS: 

"?W<U> 
930 GOTO 610 
1000 REN FINAL/ANOTHER PLAYER 
1005 GOSUB 1240s GOSUB 1200 
1010 VTAB 16s HTAB 5s PRINT "THAT'S IT, 

";Q*(U) 5". YOU'VE" 

1015 VTAB 17s HTAB 5s PRINT "REACHED THE 

LIMIT- . . " 

1020 VTAB IBs HTAB 5s PRINT "PRESS RETURN, 

PLEASE: " * 
1025 INPUT X$s HOME 

1030 IF 11 = 1 THEN 11 « 0s GOTO 1040 
1035 T(U) = W(U) 

1040 U - U + Is IF A < U THEN 1100 
1045 PRINT Q*<U>3", YOU ARE NEXT..." 
1050 PRINT "PRESS RETURN WHEN READY : " ; 
1055 INPUT X$s HOME 
1060 GOSUB 225s GOTO 300 
1100 REM FINAL/SCORE RESULTS 
1105 PRINT "PLAYERS AND POINTS.-" 
1110 FOR I = 1 TO A 

1115 PRINT Q*<I);" TOTAL POINTSs "sTCI) 
1120 NEXT 
1125 PRINT 

1130 PRINT "PROGRAM TERMINATED..." 
1135 END 

1200 REM CLEAR PRINT AREA 
1210 VTAB 16s HTAB 5s FOR X = 1 TO 35s 

PRINT " ";: NEXT 
1220 VTAB 17s HTAB 5s FOR X = 1 TO 35s 

PRINT " "; s NEXT 
1230 RETURN 
1240 REM TIME DELAY 
1250 FOR TI = 1 TO 1200s NEXT 
1260 RETURN 

13m REM FLASH SELECTION COURSE 
1305 FOR I * 1 TO NU 
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1310 IF L*<I> « "*" OR L*<I) = " » THEN 133© 

1315 VT«B PR(I): HTAB PC ( I ) : PRINT »*"; 

132© FOR TI = 1 TO 10s NEXT TI 

1325 VTSB PR(I)8 HTflB PC ( I ) : PRINT L$ ( I > ; 

1330 NEXT I 

1335 RETURN 
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Insomnia for the Apple II 

1® REM PROGRAM TITLEs INSOMNIA 

£0 CLEAR s HOME 

30 PRINT "INSOMNIA" 

40 PRINT 

5© PRINT "SO YOU ARE HAVING PROBLEMS" 

60 PRINT "SLEEPING? JUST SIT BACK, KEEP' 

70 PRINT "YOUR EYES ON THE SCREEN AND" 

80 INPUT "PRESS RETURN s";X*s HOME 

9© A « £0sW - 

i©0 PRINT : HTAB As PRINT » : " 5 

110 HTAB A - Is PRINT " : " ; s HTAB A + is 
PRINT ":»; 

1£0 I = INT ( RND (1) * £ + 1) 

130 IF I = i THEN 160 

140 IF A > = 39 THEN 170 

150 A = A 4- £: GOTO 180 

180 IF A < =10 THEN 150 

170 A = A - £ 

180 W = W + Is IF W = 15 THEN 350 

190 IF W = 700 THEN £10 

£00 GOTO 100 

£10 IF W < = 800 THEN £30 

££0 GOTO £50 

£30 PRINT 

240 W s w + 1 : GOTO £10 

£50 PRINT "GETTING SLEEPY NOW?" 

£60 FOR I = 1 TO U: NEXT 

£70 IF W ( = 814 THEN £90 

£80 GOTO 300 

£90 PRINT sW = W + Is GOTO £70 

300 FOR X = 1 TO 40 

310 VTAB is HTAB Xs PRINT "§" s VTAB £3s 
HTAB X: PRINT "@": NEXT 

3£0 FOR X = 1 TO £3 

330 VTAB Xs HTAB is PRINT "©" s VTAB Xs 
HTAB 40s PRINT "(a 11 : NEXT 

340 FOR I = 1 TO W: NEXT sW = 0: GOTO 400 

350 VTAB 16s HTAB £0 

360 PRINT "KEEP EYES HERE i " 

370 G03UB 600 

380 GOTO 190 

400 L = 38:AR = £sAC = £:XR - ££sXC - 6sY 
= AR 

410 FOR I = AC TD AC + L 

4£0 VTAB ARs HTAB Is PRINT "*"z 
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430 
448 

45© 
460 
470 

460 
490 

500 

510 
528 

530 
540 
550 
560 
578 
580 
585 
590 

600 

610 
620 
638 
648 
650 
668 
678 
680 
690 
708 
718 
728 
730 
740 
750 
768 
770 
788 
798 
888 
818 
820 

848 

858 
868 



VTAB XR: HTAB I + 4s PRINT "*" 

NEXT : FOR I = AC TO AC + L 

VTAB ftR: HTftB I: PRINT " " ; 

VTAB XRs HTftB I + 4s PRINT " ";s NEXT 
PR = fl R + 1-XR = XR - 1: IF ftR = 12 

THEN 538 

IF XR = Y THEN 508 

GOTO 410 

IF W < =58 THEN 528 

GOSUB 608s GOTO 610 
W = W + is IF W - 25 THEN GOSUB 588 

GOTO 488 

IF W > 1 THEN 488 

VTAB ftR: HTftB 18 

PRINT "STARE AT THIS LOCATION" 5 

GOSUB 688 

GOTO 488 
A2 = AR - 6s IF ftR < = (3 THEN ftR = i 
ft! = ftC + 25s IF Al > = 40 THEN ft! = 40 

PRINT "NOW FOLLOW THE BARS" 5 

FOR I = 1 TO 1888s NEXT s RETURN 

HOME 

PRINT 

PRINT 

PRINT 

GOSUB 

PRINT 

PRINT 

PRINT 

PRINT 

GOSUB 

PRINT 

PRINT 

PRINT 

INPUT 

HOME : 
Y = 28: 



GETTING SLEEPY' 
A HOPELESS" 



"IF YOU ARE NOT 

"BY NOW, YOU'RE 

"CASE! " 

688: PRINT 

"THIS IS THE LAST PHASE OF" 

IF IT FAILS, RUN' 1 



PROGRAM ONCE" 



"INSOMNIA. 

"THE ENTIRE 

"AGAIN., . " 

688: PRINT 

"KEEP YOUR EYES ON THE MOVING" 

"BLOCK, THINKING TO YOURSELF" 

"'I AM GETTING SLEEPY '" 

"PRESS RETURN s" 5 X$:W = 8 
PC = PC + 38 
FOR X = 6 TO 9 



VTAB Xs HTAB Ys PRINT "@@" : NEXT 
PR = XsPC = 28 

GOSUB 1188 

FOR X = 6 TO 9 

VTAB X: HTftB Y: PRINT " "s NEXT 

IF Z = 1 THEN 938 

FOR X = 6 TO 9 

VTAB Xs HTAB Y: PRINT "C*@":Y = Y 

NEXT 

GOSUB 1128 
PC = PC - 6 
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87© 


GOSUB 1100 




880 


Y = £0 




890 


FOR X « 6 TO 9 




900 


VIAE Xs HTAB Ys 

Is NEXT 


PRIN1 


910 


GOSUB 1120 




920 


Z ~ Is GOTO 760 




930 


GOSUB 112© 




940 


FOR X = 6 TO 9 




950 


VTAB Xs HTAB Ys 
NEXT 


PRINT 


960 


PC = PC + 5s VTAB 


PR: 


965 


VTAB PR + is MTAB PCs 



:Y = Y 



" "@@" :Y = Y + 1 : 
HTAB PCs PRINT 

PRINT "@@" 
970 Y = 20s FOR X = 6 TO 9 
980 VTAB Xs HTAB Ys PRINT " " 
990 Y = Y + Is NEXT 
1000 GOSUB 112© 

1010 W = W + 1 

1020 IF W = 5 THEN 1050 

1(330 IF Ui = 50 THEN 1150 

1040 Z = 0s GOTO 760 

1050 FOR X = 12 TO 27 

1060 VTAB 6s HTAB Xs PRINT "(a" s VTAB 12s 

HTAB Xs PRINT "@" s NEXT 
1070 FOR X - 6 TO 11 
1080 VTAB Xs HTAB 12s PRINT "@"s VTAB Xs 

HTAB £7s PRINT "@» : NEXT 
1090 GOTO 1030 

1100 VTAB PRs HTAB PCs PRINT ,, @@" 
1105 VTAB PR + is HTAB PCs PRINT "@@ M 
1110 RETURN 

1120 VTAB PRs HTAB PCs PRINT " " 
1125 VTAB PR + is HTAB PCs PRINT " » 
1130 RETURN 

1150 REN END OF PROGRAM 
1155 VTAB 6s HTAB 20s PRINT "C*@" 
1160 GOTO 1160 REN CONTINUOUS LOOP AT END 
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Rainy Daze for the Apple II 



10 

£0 

30 
40 

50 
60 
65 
70 
80 

90 

100 

110 
120 
130 
140 
150 
160 
170 
180 
130 

£00 

£10 
££0 
£3© 
£40 
£50 
£60 
£70 

£80 

£90 
300 
310 
3£0 
340 
350 
360 
370 
380 
330 

400 

410 
4£0 



REM PROGRAM TITLE:RAINY DAZE 

HOME 

INPUT "INSTRUCTIONS? " ?A$ 

INPUT "HOW MANY PLAYERS? n ?Ps IF P = 

THEN 40 

PRINT "THE "$P3" PLAYERS' INITIALSs "5 

IF P > =11 THEN £0 

FOR I = 1 TO P 

INPUT N*(I) : NEXT 

IF A* < > "Y" AND A$ < > "YES" 

THEN 340 

REM INSTRUCTIONS 

PRINT "THIS PROGRAM IS DESIGNED TO" 
"HELP YOU THROUGH YOUR WORST" 
"DAYS, BY MAKING THEM WORSE! !" 
"ACTUALLY, THIS PROGRAM WILL" 
"TEST YOUR ABILITY TO FOLLOW" 
"NUMBERS, SOMETIMES IN SEQUENCE. " 
"THE NUMERALS 1 THROUGH 660 WILL" 
"RACE ACROSS AND FILL THE VIDEO." 
"WHEN A NUMERAL APPEARS THAT IS" 
"NOT SUPPOSED TO BE THERE, HOLD" 
"THE RIGHT ARROW KEY FOR A SHORT" 
"TIME UNTIL THAT NUMERAL IS" 
"BLOCKED OUT. " 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

HOME 

PRINT 



"RETURN" 5 X* 



BE GIVEN ON 
OUT~GF~SEQUENCE 



"POINTS WILL 
THE BASIS" 
PRINT "OF HOW MANY 
NUMERALS" 
PRINT "YOU HAVE DETECTED AT THE END OF" 

"THE COUNT, 660- " 

"REMEMBER TO KEEP GOOD 

"WITH THE SCREEN,. . "s 



PRINT 
PRINT 
PRINT 
I = 1 
IF P = 1 THEN 390 
PRINT N*<I>;", YOU WILL NOW 
INPUT "PRESS RETURN, PLEASE 
GOTO 410 



EYE CONTACT" 
PRINT 



PLAY: 1 
";X$ 



PRINT "WHEN READY 
INPUT "THE 
HOME :N = 
AR = 1:AC = 



RETURN KEYs" 5 X* 



PRESS' 



:N1 = 0:TT = 
IsAB = AC:M = 



100 

30:L = 



::G = 
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430 

440 
450 
460 
47© 
480 
490 

500 

510 
520 
530 
540 
550 
560 
570 
580 
590 

600 

610 

620 
630 
635 
640 
645 

650 
660 
670 
680 
690 

700 

710 
720 
730 
740 
750 
760 
770 
780 
790 

800 

810 
820 



K = PEEK ( - 16384) - 128: POKE ( - 

16368), 2 GOTO 550 

VTAB ARs HTAB AGs PRINT N; 

FOR T = 1 TO TT + TT 

NEXT sAC = AC + 5 

IF AC > = M THEN 49© 

GOTO 430 
AR = LsAC = ABsL = L + 1:TT = TT ~ 

15sG = 

IF L > = 

GOTO 430 

FOR T = 1 

HOME 

GOTO 420 

REM CHANGE OR LEAVE 

IF K = 21 THEN HJ 
N = N + 1 

Nl = Nl + Is IF Nl 
J = INT < RND (1) 

J = 0sN « Nl 



24 THEN 520 
TO 1000s NEXT 



= Is GOTO 690 

< = 2 THEN 610 

* 2) s IF G= 1 THEN 



ABS <N 



i:G = 1 
■ Nl) < 



> THEN 



1 : 



IF K = AND 
Y = Y + 1 

IF NJ = 1 THEN NJ = 0s GOTO 640 
IF Nl > = 661 THEN 800 
GOTO 440 
Nl = Nl + 1 
IF AC - 5 < =0 THEN VTAB AR - 
HTAB 40 - AC - 13s PRINT "@@@@@" ? s GOTO 
VTAB ARs HTAB AC - 5s PRINT ,, @®@§@" ; 
REM PAUSE BEFORE CONT. 
FOR T = 1 TO 200: NEXT sK = 
GOTO 440 
IF ABS (N - Nl) =0 THEN 710 

Y = Y - 1 : GOTO 720 

Y = Y + 1 

GOSUB 970sAl = PEEK (PI + (AC - 8)) 
A2 « PEEK (PI + (AC - 9)) 

IF Al ~ 192 AND A2 = 192 THEN 760 

GOTO 620 

HOME :Y = Y + £ 

PRINT "QUIT HOLDING DOWN THE ARROW" 

PRINT "KEY, YOU MANIAC!!!" 

FOR T = 1 TO 1200s NEXT s HOME : GOTO 

620 

REM PLAYER ADVANCE 
YY(I) = YsY = 0s HOME 
1 = 1 + 1 
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83iZi IF I > P THEN Nl = Nl - 1 : GOTO 850 

840 GOTO 360 

850 REM FINAL 

860 PRINT "PLAYERS AND THEIR POINTS" 

870 PRINT "ARE AS FOLLOWS:'* 

880 FOR I = i TO P 

890 PRINT N*<I>5" IDENTIFIED "3 

900 IF YY(I) =0 THEN PRINT "ALL 

NUMERALS. »: GOTO 930 
910 IF YY(I) < THEN YY ( I ) = - YY ( I ) 
920 PRINT Nl - YY(I);" NUMERALS." 
930 NEXT 
940 PRINT 

950 PRINT "END OF PROGRAM" 
980 END 
970 IF AR > 1 AND AR < « 8 THEN Pi = AR 

* 12B + 896 
980 IF AR > =9 AND AR < ~ 16 THEN Pi 

= (AR - 8) * 1£8 + 936 
990 IF AR > « 17 AND AR < - £'4 THEN Pi 

= (AR - 16) * 1£8 + 976 
1000 RETURN 
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Lap-the~Track for the Apple II 

1© REM PROGRAM TITLES LAP THE TRACK 

£0 CLEAR 3 HOME 

30 HTAB l®s PRINT "-:-: LAP-THE-TRACK 

4© PRINT s DIM A*<15>, A< 15) , LA U5) , T < 15) 

50 INPUT "INSTRUCTONS?" ;A$ 

60 IF m < > "Y" AND A$ < > "YES" THEN 

300 

70 PRINT "UP TO FIFTEEN PEOPLE BET ON 

FOUR MOVING" 
B0 PRINT "SPOTS THAT ARE IN A FAST RACE" 
90 PRINT "TO THE FINISH. A COMPLETE RACE" 
100 PRINT s IF CB = 1 THEN 960 
110 PRINT "WILL BE ABLE TO CHOOSE A LANE 

(1-4)" 
120 PRINT "AND MAKE A BET OF ANY DESIRED" 
130 PRINT "AMOUNT ON THAT LANE- IF THERE" 
140 PRINT "ARE NO WINNERS, THE COMPUTER 
WILL" 

13(£» FttllMi i-'uriuic inc. rii_i»^i— i un n L,nm- ui 

ITS CHOICE" 
16© PRINT "IN THE NEXT RACE, IF THE" 
170 PRINT "COMPUTER'S SPOT HAPPENS TO WIN" 
180 PRINT "IT WILL NOT TAKE THE MONEY ;» 
190 PRINT "IT WILL JUST BET ON ANOTHER 

LANE. " 
£00 PRINT "SO, NO MATTER HOW YOU SLICE IT, 1 
210 PRINT "SOMEONE IS BOUND TO WIN. (YOU 

CAN USE" 
££0 PRINT "REAL MONEY IN THIS GAME IF YOU 

WISH. )" 
£30 PRINT 
300 PRINT 

310 INPUT "HOW MANY WILL PLAY? " ;B 
3£0 IF B < 1 OR B > 10 THEN 3£0 
330 PRINT "INITIALS, PLEASEs " ; 
340 FOR I = 1 TO B 
350 INPUT A$(I) s NEXT 
360 PRINT 

370 PRINT "YOU WILL NOW SELECT A LANE." 
380 I = 1 

390 PRINT ft*U>;": LANE NUMBER"; 
400 INPUT LA (I) 

410 IF LA(I) < 1 OR LA(I) > 4 THEN 390 
4£0 PRINT "BET WHAT AMOUNT?"? 
430 INPUT B(I) 
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44© 
450 
46© 
47© 
480 
430 
495 

500 

510 
520 
530 
540 
550 
5S0 
570 
580 
590 

600 

610 
620 
630 
640 
650 



655 



660 
67© 
680 
690 

700 

710 
720 

730 

735 
740 

750 
760 



1 = 1 + 1 
IF I > B THEN 480 
PRINT 
BOTO 390 

HOME s OOSUB 13005 IF 11 = 1 THEN 510 
PRINT "IF MORE THAN ONE PLAYER WINS" 
PRINT "(SELECTION OF SAME LANE), ALL 
MONEY" 

PRINT "WILL BE DIVIDED AS EQUALLY AS 
POSSIBLE. " 

PRINT : IF CB = 1 THEN 960 
GOSUB 1240s GOSUB 1300s GOSUB 1410 
FOR TU = 1 TO 2000s NEXT s HOME 
PRINT "PRESS RETURN TO START THE RACE s 
INPUT A$s HOME s OR 
REM OUTER TRACK 

COLORE 8: FOR I = TO 30 STEP 10 
HLIN 0,39 AT I 

I + 6 

AT 

AT 39 



0,39 AT 
1,1+6 
1,1+6 



HLIN 

VLIN 

VLIN 

NEXT 

REM SPOT LOCATIONS 

GOSUB 1200:L = lsIR = 4sIC = 1 
LR(L> = IRsLC(L) = ICsRR(L) = IR:RC<L) 
= ICsPR(L) = IR - 5sPC<L) == IC + 30sL 
P(L) = 
PR(1) = 21sPR<2> = PR(l)sPR(3) = 

22:PR<4> = PR(3)sPC<l> = 16:PC<2> = 
36sPC<3 ) = PC<1):PC(4) = PC(£) 
IR = IR + 10s IF L > =4 THEN 680 
L = L + 1: GOTO 650 

FOR I = 1 TO 4 

COLOR= 3 * Is PLOT LC(I),LR(I) 

REM START A RACE 
LP = ©sPK = LR(1) + 1 
I = INT ( RND (1) * 4 + 
<I - 5) 

COLOR= 0s IF LC(I) > 

1000 

PLOT LC<I),LR(I> 

IF ABS <LC(I) « RC(D) > =29 THEN 

1000 

LC(I) = LC(I) + INT < RND (1) * 10 + 1) 
COLOR= 3 * Is IF LC(I) > =34 THEN 
GOTO 1000 



NEXT 



1 ) s M = ABS 



= 34 THEN GOTO 



765 PLOT LC<I),LR(I) 
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770 IF M + 1 < > I AND M + 1 < > 5 THEN 

790 
780 GOTO 8£0 
790 COLOR= O: IF LC<M + 1) > =34 THEN 

GOTO 1000 
795 PLOT LC<M + 1)„LR<M + 1) 
800 LC<M + 1) = LC<M + 1) + INT < RND 

(1) * 4 + 1) 
810 COLOR= 3 * <M + l)s IF LC<M + 1) > = 

34 THEN GOTO 1000 
815 GOSUB 21O0: PLOT LC(M + 1),LR<M + 1) 
8£0 IF M - 1 ( > I AND M - 1 < > THEN 
840 

830 SOTO 870 
840 COLOR* 0s IF LC(N - 1) > =34 THEN 

GOTO 1000 
845 PLOT LC(M - 1),LR<M « 1) 
850 LC<M - 1) = LC(M - I) + INT ( RND 

(1) * 4 + 1) 
8S0 CGLOR= <M - 1) * 3s IF LC(M - 1 ) > 

= 34 THEN GOTO 1000 
865 GOSUB £ i £0 2 PLOT LC (M - 1 ) , LR ( M - i ) 
870 IF M + £ < > 5 AND M + £ < > 6 THEN 

890 
BBHa GOTO 7£0 
890 COLOR* 0s IF LC(M + £) > =34 THEN 

GOTO 1000 
895 PLOT LC(M + £),LR(M + £) 
900 LC<M + £> = LC<M + £) + INT < RND (!) 

#4+1) 
910 COLOR« <M •+- £> * 3s IF LC(M + £) > 

= 35 THEN GOTO 1000 
915 GOSUB £££0: PLOT LC(M + £),LR(M + £) 
9£0 COLOR= 0s IF LC<M> > = 34 THEN GOTO 

1000 

9£5 PLOT LC<M) ? LR<M> 

930 LC<M> = LC(M) + INT < RND <1) * 4 + i) 

940 COLOR= M * 3s IF LC(M) > =34 THEN 

GOTO 1000 
945 GOSUB ££80 s PLOT LC(M),LR(M) 
950 GOTO 7£0 
980 CB = 0s TEXT s HOME s PRINT "THE 

COMPUTER WILL PLACE THE AMOUNT OF "5 
985 PRINT "$ n $AM; 
970 RF = INT ( RND <1) # 4 + 1) 
980 PRINT "ON LANE "sRF?"." 
985 MN(RF) = MN(RF) + AMsAM = 
990 GOTO 510 
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11300 COLOR* 0: IF LC(I) > =34 THEN 

LC(I) = 38 
1005 PLOT LC(I),LR<I) 
1010 LC(I> = RC(I) 
1020 LP<I> = LPU) + 1: VTAB PR<I)s HTAB 

PC(I) : PRINT LP(I> 
1030 IF LP(I) > =10 THEN 1500 
1040 GOTO 7£0 
1200 VTAB £1: HTAB 1: PRINT "LOPS - LANE 

I : " * 
1210 VTAB £1: HTAB £0: PRINT "LAPS - 

LANE £ : " ; 
1££0 VTAB ££s HTAB 1: PRINT "LAPS - LANE 

3:"; 
1£30 VTAB ££: HTAB £0: PRINT "LAPS - LANE 

4: n 5 
1£35 RETURN 

1£40 REM AMOUNTS BET PER LANE 
1£50 VTAB £1: HTAB Is PRINT "LANE 1-...-"; 

1£60 VTAB £1: HTAB £0: PRINT "LANE £ " ; 

1270 VTAB ££: HTAB 1: PRINT "LANE 3.-..."? 

1£80 VTAB ££s HTAB £©s PRINT "LANE 4 " ; 

1£90 RETURN 

1300 REM AMOUNTS ON LANES 

1310 T = 1 

13£0 FOR I = 1 TO B 

1330 IF LA(I) = T THEN 1350 

1340 NEXT Is GOTO 1370 

1350 MIM(T> = MN(T> + B(I) / £ 

1360 GOTO 1340 

1370 T = T + 1 

1380 IF T > =5 THEN 1400 

1390 GOTO 13£0 

1400 RETURN 

1410 REM PRINT AMOUNTS 
14£0 AA$ = "$" 
1430 I = 1:F1 = £lsF£ = 13 
1440 VTAB Fls HTAB F£s PRINT Aft*;MNU> 
1450 I » I + Is IF I ■ S THEN Fl = £1:F£ 
= 33 

1453 IF I = 3 THEN Fl = ££sF£ = 13 

1455 IF I = 4 THEN Fl = ££sF£ = 33 

1460 IF I > =5 THEN RETURN 

1470 GOTO 1440 

1500 REM FINISH 

1510 WW * 1 

1515 FOR TU = 1 TO 15002 NEXT 
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15£® TEXT s HOME s VTAB 3s HTAB 15s PRINT 

"WINNER" 5 
153® FOR TU = 1 TO 1®0® 
1540 NEXT 

1558 VTAB 3s HTAB 15s PRINT " •' j 
156® IF WW ) s 6 THEN 158© 
157® WW « WW + Is GOTO 15£® 
158® REN PLAYER LANE SELECT 
159® WW = 
160® FOR T « 1 TO B 
161® IF LA<T> - I THEN 183® 
16£0 NEXT § GOTO 165® 
163® WW » WW + liT(WW) = T 
164® 60T0 162® 
165® FOR I « 1 TO 4gAM « AN + MN<I)sMN<I) 

a ® 

166® NEXT : IF WW a © THEN 176® 

167® VTAB 3i HTAB 15i PRINT "WINNER<S> s " | 

1680 Wl a 4sW£ « 15 

169® FOR I a i jo WW 

17®® VTAB Wig HTAB W£s PRINT fl*(T(I)^ 

171® IF WW ) 1 THEN PRINT " f "; 

17£0 W£ a W£ + 5s NEXT 

17£5 IF WW = 1 THEN 179® 

1730 VTAB 17s HTAB 10s PRINT "EACH WINNER 

RECEIVES:" s 
1740 VTAB 17s HTAB 30s PRINT AA$$AM / WW; 
1750 AN = ®s GOTO 182® 
176® VTAB 3s HTAB 15s PRINT "*# NO WINNERS 

178® GOTO 187® 

1790 VTAB 17s HTAB 10: PRINT 5s 

180® PRINT "YOU WILL RECEIVE:" 3 

181® GOTO 174® 

1820 REN ANOTHER 

183® VTAB 14s HTAB 15: INPUT "ANOTHER 

RACE (Y/N)?"3fi* 

1850 IF A$ = "N" THEN £00® 

186® HOME sZZ a i» GOTO 36® 

1870 FOR TU = i TO IE®®: NEXT 

188® VTAB 19: HTAB 1 

189® PRINT "IF ANOTHER RACE IS HELD, THE" 

191® PRINT "COMPUTER WILL BET THE MONEY" 

193® PRINT "ON A LANE IT SELECTS. " 

194® CB = I: GOTO 182® 

2®0® REM END 

£010 HOME 

£0£® PRINT "FAREWELL 'TILL NEXT RACE." 
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£030 


END 




£100 


POKE 769, 


13 


£110 


POKE 770, 


30 


£1£0 


POKE 768, 


1 


£130 


CALL 771 




£140 


RETURN 




£160 


POKE 769, 


6 


£170 


POKE 770, 


8 


£180 


POKE 768, 


3. 


£190 


CALL 771 




£195 


RETURN 




£££0 


POKE 769, 


£0 


££30 


POKE 770, 


4 


££40 


POKE 768, 


1 


££50 


CALL 771 




££60 


RETURN 




££80 


POKE 769, 


93 


££90 


POKE 770, 


tr 


£300 


POKE 768, 


1 


£310 


CALL 771 




£3£0 


RETURN 
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injection for the Apple SI 

10 REM PROGRAM TITLES INJECTION 
£0 CLEAR 

30 PRINT CHR$ <4> $ "BLOADSGUND" 
40 HOME 

50 HTAB 15s PRINT »> INJECTION <" 
6© PRINT 

70 INPUT "NUMBER TO PLAY <i-10>" ;U 
80 IF U < 1 OR U > 10 THEN 70 
90 PRINT "THE INITIALS OF THE PLAYERS s " 
100 FOR I = 1 TO Us INPUT K* ( I ) 
11© NEXT : PRINT 3 PL = 1 

1£0 PRINT "YOU ARE HEAD OF A LABORATORY" 
130 PRINT "IN WHICH YOUR COMPANY IS IN THE" 
140 PRINT "PROCESS OF INJECTING CUBES WITH" 
150 PRINT "A SOLVENT, TO DESTROY A COLONY" 
160 PRINT "OF BACTERIA WHICH CANNOT BE" 
170 PRINT "CONTROLLED, THESE CUBES WILL" 
180 PRINT "RACE ACROSS THE SCREEN 5 AT A" 
190 PRINT "TIME, TO INJECT A CUBE, HOLD" 
200 PRINT "THE SPACE BAR* THE INJECTED" 
£10 PRINT "SOLVENT MUST DIRECTLY STRIKE 

THE" 
££0 PRINT "OPENING AT THE BOTTOM OF THE 

CUBES. " 
£30 PRINT 
£40 PRINT 

£50 INPUT "PRESS RETURN TO CONTINUES " 5 L* 
£70 PRINT "EACH TIME A CUBE IS INJECTED," 
£80 PRINT "THE NUMBER RACING ACROSS THE 

SCREEN" 
£90 PRINT "WILL DECREASE BY ONE, BUT" 
300 PRINT "NO FEWER THAN THREE WILL RACE" 
310 PRINT "ACROSS AT ANY ONE TIME. A 

TOTAL" 
320 PRINT "OF TEN CUBES MUST BE INJECTED" 
330 PRINT "WITH THE SOLVENT- IF YOU MISS 

AN" 
340 PRINT "INJECTION, THE NUMBER OF CUBES 

WILL" 
350 PRINT "INCREASE BY ONE. THE INJECTION" 
360 PRINT "MACHINE CAN BE MOVED LEFT OR 

RIGHT" 
370 PRINT "WITH THE LEFT OR RIGHT ARROW 

KEYS. " 
380 PRINT "GOOD LUCK!" 
390 PRINT 
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400 

405 
410 

4£0 
430 
440 
450 
455 
460 
470 
475 
480 
490 

500 

510 
5£0 
530 
535 
540 
550 
560 

570 
580 

800 

610 
620 
630 
640 
650 
660 
670 
680 
690 

700 

710 
7£0 
730 
740 

750 
760 
770 
780 
790 



INPUT "PRESS RETURN TO CONTINUE: "; L$ 
GR 

HOME tJN = 0sT * is IN = 10sE = 0:CV - 
5: GOSUB 600 
REM THE CUBES 
X = 3:M = XsJ = 0sJJ = 0s COLORE 11 
COLOR= 11: HLIN X, (X + 4) AT £ 
HLIN X, (X -4-4) ftT 3 

AT 4 

(X + 2), 4 

+ 1 



HLIN X, (X + 4) 
COLORE 0s PLOT 
X = X + 6sJ = J 
GOSUB 1600 



IF JJ = 1 
IF J > « 
GOTO 440 
COLOR= 0s 
HLIN M, (M 
HLIN M, <M 
HLIN M, (M 



THEN 520 
CV THEN 51< 



REM 

+ 4) 
+ 4) 
+ 4) 



BLANK OUT 
AT £ 
AT 3 

AT 4 



+ 6 
RECYCLE 

> * 33 THEN X = 3s JJ = Is GOTO 

> = 33 THEN 430 



M = M 

REM 

IF X 

580 

IF M 

GOTO 720 

COLOR= l£s REM BORDER/ INJECTOR 

FOR X = TO 39s PLOT X, 

PLOT X,38s PLOT X,39s NEXT 

FOR X = 1 TO 39 

PLOT ? Xs PLOT 1,X 

PLOT 38, Xs PLOT 39, X s NEXT 

COLOR= 14s HLIN P, 39 AT 15 
QC = £:QR = 14sCA = 

PLOT QC.QR 

VTAB £1: HTAB Is PRINT "CUBES 

REMAINING "5 

VTAB 21s HTAB 23s PRINT "CUBES ADDED 

VTAB ££s PRINT K*<PL)$s RETURN 

REM INJECTION/INJECTOR MOVE 

IF R = 32 THEN 790 
R = PEEK ( - 16384) 
16366), 

IF R = 32 THEN 790 
IF R = 8 THEN 900 
IF R = 21 THEN 960 
GOTO 440 
IF JN = 1 THEN 810 



128s POKE ( 



465 



800 QQ = QCsJN = IsQl = QR 

810 IF QR < = 4 THEN V = Is GOTO 880 

820 COLOR= 0s PLOT QC, QR 

830 QR = QR ~ lis COLOR= 14 s PLOT QC.QR 

833 GOSUB 1700 

835 IF SCRIM < (QC + 1) , QR) = 1 1 THEN 845 

840 GOTO 440 

845 IF SCRN( (QC - 1),QR) = 11 THEN 1020 

850 GOTO 440 

880 COLOR= 0s GOSUB 1900 

885 PLOT QC,QR 

870 QC = QQ + EsQG = 0sE - 0sQR = Ql 

880 COLOR= 14s PLOT GC,QRs IF V = 1 THEN 
GOSUB 1140 

890 R - 0sJN = 0s GOTO 440 

900 REM TO LEFT 

910 IF QC < =3 THEN 440 

920 COLOR= s PLOT QC, QR 

930 QC = QC - T 

940 COLORE 14s GOSUB 1800 

945 PLOT QC,QR 

950 GOTO 440 

960 REM TO RIGHT 

970 IF QC > = 35 THEN 440 

980 COLOR= 0s PLOT QC, QR 

990 QC = QC + T 
1000 COLOR= 14s GOSUB 1800 
1005 PLOT QC,QR 
1010 GOTO 440 

1020 IF SCRN< QC, (QR - 1)) = 11 I HEN i030 
1025 GOTO 440 

1030 IF SCRN( (QC - 2>,QR> =* 11 THEN 1045 
1040 GOTO 440 

1045 IF SCRN< (QC + 2>,QR) « 11 THEN 1060 
1050 GOTO 440 
1060 REM INJECTED 
1070 T - T + IsCV = CV - 1 
1080 IF T > =5 THEN T = 1 
1090 IF CV < =2 THEN CV = 5 
1100 IN = IN - Is VTflB £1: HTPB 18s PRINT " 

"5 s HTftB 18s PRINT IN; 
1110 IF IN < =0 THEN 1250 

1120 E = INT (5 * RND (1) + 1) s IF E +QQ > 
= 37 THEN E = - INT (5 * RND 1 ) + 1 ) 
1130 GOTO 860 

1140 REM CUBE ADDED/ INJECTION MISSED 
1150 IN = IN + 1 
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GOTO I £50 

T = 1 
PRINT IN; 
PRINT CA; 



1160 CA = CA + 1:V = 

1165 IF Cft = £5 THEN 

1170 T = T - 1 

1180 IF T < =0 THEN 

1190 VTAB £1: HTAB 18 

i£00 VTAB £1: HTAB 36 

1£10 RETURN 

1£50 REM PLAYER ADVANCE 

1£60 W<PL> = CA:PL « PL + l 

1£70 IF PL > U THEN 1310 

1£80 VTAB ££!! PRINT "STANDBY " ;K$ (PL) ; ". . . 
11 H 

1£90 FOR Vy = 1 TO 1500: NEXT 

1300 R = 0s GOTO 410 

1310 FOR YY = 1 TO 90©: NEXT s TEXT : HOME 

13£0 PRINT "ALL PLAYERS HAVE HAD THEIR" 

1330 PRINT "TURNS AT THE INJECTION 

MACHINE- " 

1340 PRINT "SCORES ARE BASED ON THE NUMBER 
tt 

1350 PRINT "OF CUBES WHICH WERE ADDED 

DURING" 

1360 PRINT "THE INJECTION PROCESS." 

1370 PRINT : FOR I = i TO U 

1380 PRINT "INJECTORz ,, ;K$(I) 

1390 PRINT "HAD n ;W(I);" CUBES ADDED." 

1400 PRINT "FINAL SCORE EVALUATION:"; 

1410 W = W(I) 

14£0 IF W > =0 AND W < =5 THEN 1470 

1430 IF W > =5 AND W < = 10 THEN 1480 

1440 IF W > =10 AND W < = £0 THEN 1490 

1450 PRINT "TOO BAD TO MENTION!"; 

1460 GOTO 1500 

1470 PRINT "EXCELLENT!": GOTO 1500 

1480 PRINT "FAIR.": GOTO 1500 

1490 PRINT "POOR.": GOTO 1500 

1500 FOR YY = 1 TO 1£00: NEXT YY: PRINT 

1510 NEXT I 

15£0 PRINT 

1530 PRINT "END OF INJECTION" 

1540 END 

1600 POKE 769, £3 

1610 POKE 770, £8 

16£0 POKE 768, £ 

1630 CALL 771 

1640 RETURN 

1700 POKE 769, 11£ 

1710 POKE 770,6 
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1720 


POKE 768, 


1 


1730 


CALL 771 




1740 


RETURN 




1800 


POKE 769, 


25 


1810 


POKE 770, 


25 


1830 


POKE 768, 


1 


1840 


CALL 771 




1850 


RETURN 




1900 


POKE 769, 


13fi 


1910 


POKE 770, 


6 


1920 


POKE 768, 


1 


1930 


CALL 771 




1940 


RETURN 
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Appendix C 

Making the Programs 
Work on Your Own Computer 



Both the IBM and TRS-80 computers use MicroSoft BASIC, which 
means that they use similar syntax. However, you will find some 
differences as you program. Here are the most common problems 
you'll encounter in this book as you enter the programs which didn't 
come with special versions for the IBM or Apple. 

CHR$. If a program asks for a character with an ASCII code 
smaller than 32 and larger than 90, it's probably some kind of special 
character limited to your computer. The computer industry hasn't 
bothered to standardize these numbers. TRS-80 ASCII codes be- 
tween 129 and 191 are special graphics characters, and they're used 
to make things look interesting. Just substitute something your 
computer has that looks interesting to you ! Check your basic man- 
ual for ideas. (My favorite IBM character is CHR$(2), a smiley face 

. . .) 

CLEAR. This command just gets rid of all the ' "garbage" your 
computer has left lying around in its memory from other programs 
you've run. Don't bother to put a number after it unless your own 
basic manual suggests it— at least, not for any programs without 
machine language routines or a lot of high resolution graphics. 

CLS. Apple users, use HOME! 

DELAYS. Well, what did you buy IBM for if not for speed ? But 
you'll have to almost double any time delay routines, such as 
for-next loops, unless you're twice as quick on the draw as the 
average computer owner. 
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ELSE. This very useful function is available to IBM users, but 
not to Apple lovers. Whenever you see a line in one of the original 
programs with an else statement, if the program is to run on an 
Apple II, you must create another line immediately following it to 
hold anything that follows the word else. Then you must make the 
original line skip that new line so that it makes it to where it was 
going in the first place. Did I lose you back at the pass ? It works like 
this: 
Original lines: 20 if A=10 THEN A=17 ELSE A=A+1: GOTO 10 

30Z=INT(RND(1)*A+1) 
New lines : 20 IF A =10 THEN A =17 : GOTO 30 

25A=A+l:GOTO 10 

30Z=INT(RND(1)*A+1) 

I hope you understood that, because that's all the explanation 
you are going to get. 

INKEY$. This is another command Apple users must do 
without. It lets you monitor the keyboard directly without having to 
press the enter key. However. Apple users can peek and poke their 
way to a similar result. Instead of, for example, X$=INKEY$, you'll 
need to use X=PEEK(- 1 6384 ) - 1 28. X will be the ASCII code of 
whatever was input. Be sure to reset this memory location, though, 
or your program will think you've been holding down the REPT key. 
You do this by following your peek statement by POKE - 16368 , 
0. 

PRINT®. See SCREEN FORMATTING 

PRINT USING. This is another of those useful commands 
your Apple doesn't understand. This command allows you to format 
a number so that something going in looking like 987654321 can 
come out looking like $9, 876, 543. 21. The print using statement will 
have a string of characters such as $$#####, . ##, which works 
the conversion from chaos to order. Apple users will have to figure 
out what the number is supposed to look like from context and use 
regular print statements to approximate the TRS-80 results. 

RND. TRS-80 BASIC accepts the statement RND(n) to pro- 
duce a random number between n and 0. If you want the bottom 
value to be higher than zero, you must add a second statement such 
as ' IF W< =10 THEN. . . " and go back to the RND statement until 
you get the value you want. A randomize statement in the early lines 
of the program will reset the random number generator so that it 
gives different values each time the program is run, otherwise the 
game may be too predictable. 
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Some BASICS, such as those used by IBM and Apple, can use a 
formula to produce random numbers within desired limits all in one 
step. Using the variable name A to represent the higher number and 
B for the lower, use this formula: X= INT(RND*(A-B)+B. Sup- 
pose you need random numbers between ten and twenty. 20- 
10=10, so X= INT(RND*10+10). 

To ensure that the random number generator gives a different 
value each time the game is started, add the subscript (1) to RND on 
the Apple: X= INT(RND(1)*10+10). The IBM will require you to 
use the command Randomize n, where n is a number that can be 
input from the keyboard or be given a value by the program. See 
how it's done in the special IBM and Apple versions if you aren't 
sure how to write it into a program. 

STRINGS. I won't even say it ... Do I hear the patter of little 
feet mnning out to trade in that Apple? No need ! Think of all the 
terrific software you can get for it, and use a for-next loop. 

STRINGS allows the computer to use one print statement to do 
a repetitive task, such as making a row of stars along the top and 
bottom of the screen. If the statement says PRINT STRING$ 
(40,42), it's telling the computer to print a line of forty characters 
with the ASCII code of 42, which is an asterisk. You can replace that 
statement with something like: FOR X=l TO 40:PRINT 
'V ; ;NEXT. Don't forget the semicolon after the "*", or they'll all 
come out on different lines. (You already knew that, didn't you?) 

SCREEN FORMATTING 

The TRS-80 Model III Computer for which the programs in this 
book were originally written supports a screen display sixty-four 
characters wide and sixteen rows deep. The IBM, by contrast, 
offers a choice of either forty or eighty columns in width, with 24 
rows. This means that programs which don't require any special 
formatting (i.e., graphics of some kind) can be used on the 80 width 
screen without changes. They may look a little lopsided, but that 
doesn't bother most people. 

Most Apple computers have only a forty character screen. If 
you have an Apple or other narrow screen computer (or choose to 
use the 40 width screen on an IBM) or are entering a program which 
requires that the text be located on the screen in a precise manner, 
you will need to reformat. 

First, decide what the program ' 'wants". If the sample printout 
is all text, it probably doesn't matter how wide the lines are. If 
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they're too wide, they'll wrap around. If you fill the screen too soon 
and part of the text scrolls off, insert or move a pause routine (a 
for-next loop) or stop it with an input statement. 

You have more screen lines, so you may want to center the text 
or graphics image by adding a few blank lines at the top ; or you can 
block text at the bottom in rows 17-23 (don't use line 24 unless you 
want a scrolling effect) to simplify a graphics image in the first 
sixteen rows. 

Most of the complicated reformatting has been done for you in 
the separate program listings in Appendices A and B ; however, if 
you aren't sure how to format the remaining programs, use the 
following guides. 

The most common TRS-80 screen formatting statement is 
PRINT @ . PRINT ©locations start at the top left corner of the 
screen with PRINT @0, and work their way up one by one as they 
move across the screen to the right. The rightmost corner of the top 
line is PRINT® 63. after which the count continues on the next row, 
starting again at the left If you can't visualize this, look at the chart 
of PRINT ©locations in Appendix D. 

A screen location directly above or below another can be 
pinpointed by subtracting 64 from the original PRINT ©location or 
adding 64 to it. If you want to convert the number into row and 
column figures you can use on the Apple (VTAB and HTAB loca- 
tions) and the IBM (LOCATE statements), divide the PRINT 
@ value by 64 and add one to the answer to obtain a row, and add one 
to the remainder to get the column. Or look at the chart— after all, 
you paid for it. 

TRS-80 also supports TAB(n) statements which are just like 
IBM's, and are the equivalent of Apple HTAB. However, whether 
you are looking at a PRINT© location or a tab statement, if you are 
using a 40 character screen you will need to make sure your column 
values stay on the screen. Remember that 40 is approximately 
two-thirds of 64 ; reducing the column values by one-third and 
experimenting will probably get the desired result. If the program 
line wraps around and you don't want it to, either shorten it, or move 
the starting column position to the left. 

TRS-80 also has a function called set, which lights up one pixel, 
or little light dot, on the screen. The locations are described in the 
same way Apple users describe plot locations, or IBM owners 
access PSET; SET X,Y means go over X and down Y and light up 
the screen there. Reset does just the opposite : it turns off a lighted 
pixel at the specified location. 
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However, since set and reset address pixels and plot addresses 
a block, you'll need to cut all X axis values (counting across the 
screen) by 2/3, and the Y values (counting down the screen) in half. 
You'll want to experiment a little. If the program says SET 127,30 
followed by SET 100,30, the first dot will be at the right-hand edge 
of the screen, eleven rows down ; and the second, while at the same 
level, will be about a fourth of the way toward the left side of the 
screen. The PRINT® chart includes set information. 

IBM users also have the option of converting set locations into 
locate statements, but they must remember to reverse the order of 
the axes, since locate statements give the row first, and then the 
column. 

SCREEN GRAPHICS 

Now the Apple users can watch the IBM users squirm for a 
minute. If you have an IBM PC with a monochrome monitor, it 
probably doesn't have a color/graphics card. This means that two of 
the special versions for IBM, Knights and Intercept, won't work on 
your screen. You will need to combine the information you learned 
in the section on screen formatting with the adapted versions to turn 
the screen graphics commands into text screen commands your 
system can display. Use your BASIC manual for a reference. 

Also, almost all of the IBM programs use color, even when in 
the text screen. (This is because there are so many colors on the 
text screen !) If you have a graphics card and a "green screen" (not 
as crazy as it might sound), change all of the color statements to read 
COLOR 7,0,0. This will give you bright characters on a dark 
background. Or, even simpler, just don't type in any color state- 
ments at all. 

SOUND EFFECTS 

You can use the Apple sound routine for any programs in the 
book, whether they are written with sound or not. Look at the 
special Apple versions and see how the routine is loaded and called 
by the programs ; then try your own. Many BASICS support sound 
statements. You'll see some of these in the IBM programs, which 
use the special musical abilities IBM comes with. Use these exam- 
ples and those given in your BASIC manual to see what you can 
come up with for the programs you think are too quiet. 

VARIABLE LENGTH 

The world of computers is a world of trade-offs. Apple users 
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can name their programs anything they like, including multiple word 
titles; IBM users are stuck with eight letters and a suffix. But IBM 
users can name their variables anything they like, as long as it 
doesn't have spaces. You can expand variable names to make the 
program more meaningful if you want. Apple users, better stick to 
those two-letter names the programs come with. 
And now, happy hacking ! 
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Appendix D 
Screen Locations 



TRS-80 SCREEN LOCATIONS 



LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 



ROW I :PRINT@ PRINT© 15 PRINTS 31 PRINTS 47 PRINTS 63 

SET , SET 31 ,0 SET 63 , SET 95 , SET 127 , 



ROW 2 : PRINT© 64 
SET , 3 



PRINT© 79 
SET 31 , 3 



PRINT© 95 
SET 63 , 3 



PRINT© 111 PRINT© 127 
SET 95 , 3 SET 127 , 3 



ROW 3 :PRINT@ 128 PRINT© 143 PRINT© 159 PRINT© 175 PRINT© 191 
SET , 6 SET 31 , 6 SET 63 , 6 SET 95 , 6 SET 127 , 6 



ROW 4 : PRINT© 192 PRINT© 207 PRINT© 223 PRINT© 239 PRINT© 255 
SET , 9 SET 31 , 9 SET 63 , 9 SET 95 , 9 SET 127 , 9 



ROW 5 : PRINT© 256 PRINT© 271 PRINT© 287 PRINT© 303 PRINT© 319 

SET , 12 SET 31 , 12 SET 63 , 12 SET 95 , 12 SET 127 , 12 



ROW 6 : PRINT© 320 PRINT© 335 PRINT© 351 PRINT© 367 PRINT© 383 

SET , 15 SET 31 , 15 SET 63 , 15 SET 95 , 15 SET 127 , 15 



ROW 7 : PRINT© 384 PRINT© 399 PRINT© 415 PRINT© 431 PRINTS 447 

SET , 18 SET 31 , 18 SET 63 , 18 SET 95 , 18 SET 127 , 18 



ROW 8 : PRINT© 448 PRINT© 463 PRINT© 479 PRINT© 495 PRINT© 511 

SET , 21 SET 31 , 21 SET 63 , 21 SET 95 , 21 SET 127 , 21 
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LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 



ROW 9 -PRINTS 512 PRINT© 527 PRINTS 543 PRINT© 559 PRINT© 575 
ROW 9 -™™ ^ ™ T 3 ^ ^ ^ SET 63 ( 2A SET 95 f 2A SET 127 ( 24 



ROW 10 



PRINTS 576 PRINTS 591 PRINT© 607 PRINT© 623 PRINT© 6" 
SET , 27 SET 31 , 27 SET 63 , 27 SET 95 , 27 SET 127 , 



ROW 11 : 



PRINT0 640 PRINTS 655 PRINT© 671 PRINTS 687 PRINT© 703 
SET , 30 SET 31 , 30 SET 63 , 30 SET 95 , 30 SET 127 , 30 



ROW 12 : 



PRINT© 704 PRINT© 719 PRINT© 735 PRINT© 751 PRINT© 767 
SET , 33 SET 31 , 33 SET 63 , 33 SET 95 , 33 SET 127 , 33 



ROW 13 : 



PRINT© 768 PRINT© 783 PRINT© 799 PRINT© 815 PRINT© 831 
SET , 36 SET 31 , 36 SET 63 , 36 SET 95 , 36 SET 127 , 36 



ROW 14 



PRINTS 832 PRINT© 847 PRINT© 863 PRINT© 879 PRINT© 895 
SET , 39 SET 31 t 39 SET 63 , 39 SET 95 , 39 SET 127 , 39 



ROW 15 * 

PRINT© 896 PRINT© 911 PRINT© 927 PRINT© 943 PRINT© 959 
SET . 42 SET 31 , 42 SET 63 , 42 SET 95 , 42 SET 127 , 42 



ROW 16 : 



PRINT© 960 PRINT© 975 PRINT© 991 PRINT© 1007 PRINT© 1023 
SET , 45 SET 31 , 45 SET 63 , 45 SET 95 , 45 SET 12"' , 45 



APPLE II SCREEN LOCATIONS 



LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 



ROW 1 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT T 1 PLOT 9 , 1 PLOT 19 , 1 PLOT 29 , 1 PLOT 39 f 1 



ROW 2 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT 0,2 PLOT 9 , 2 PLOT 19 . 2 PLOT 29 , 2 PLOT 39 , 2 



ROW 3 -HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT 0,3 PLOT 9 . 3 PLOT 19 , 3 PLOT 29 ,3 PLOT 39 , 3 



ROW A :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT , 4 PLOT 9 , 4 PLOT 19 , 4 PLOT 29 , 4 PLOT 39 , 4 
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LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 



ROW 5 


:HTAB 1 
PLOT , 


, 5 


HTAB 10 
PLOT 9 , 


5 


HTAB 
PLOT 


20 

19 , 


, 5 


HTAB 30 
PLOT 29 ; 


► 5 


HTAB 40 
PLOT 39 , 


, 5 


ROW 6 


:HTAB 1 
PLOT , 


■ 6 


HTAB 10 
PLOT 9 , 


6 


HTAB 
PLOT 


20 
19 , 


■ 6 


HTAB 30 
PLOT 29 ; 


, 6 


HTAB 40 
PLOT 39 , 


, 6 


ROW 7 


:HTAB 1 
PLOT , 


, 7 


HTAB 10 
PLOT 9 , 


7 


HTAB 
PLOT 


20 

19 , 


, 7 


HTAB 30 
PLOT 29 , 


, 7 


HTAB 40 
PLOT 39 , 


7 


ROW 8 


:HTAB 1 

PLOT , 


, 8 


HTAB 10 
PLOT 9 , 


8 


HTAB 
PLOT 


20 

19 , 


, 8 


HTAB 30 
PLOT 29 , 


■ 8 


HTAB 40 
PLOT 39 , 


8 


ROW 9 


:HTAB 1 
PLOT , 


, 9 


HTAB 10 
PLOT 9 , 


9 


HTAB 
PLOT 


20 

19 , 


■ 9 


HTAB 30 
PLOT 29 , 


. 9 


HTAB 40 

PLOT 39 , 


, 9 



ROW 10 : 

HTAB 1 HTAB 10 f HTAB 20 HTAB 30 HTAB 40 
PLOT , 10 PLOT 9 , 10 PLOT 19 , 10 PLOT 29 , 10 PLOT 39 , 10 



ROW 11 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT , 11 PLOT 9 , 11 PLOT 19 , 11 PLOT 29 , 11 PLOT 39 . 11 



ROW 12 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT , 12 PLOT 9 , 12 PLOT 19 , 12 PLOT 29 , 12 PLOT 39 t 12 



ROW 13 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT , 13 PLOT 9 , 13 PLOT 19 , 13 PLOT 29 , 13 PLOT 39 , 13 



ROW 14 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT , 14 PLOT 9 , 14 PLOT 19 , 14 PLOT 29 , 14 PLOT 39 , 14 



ROW 15 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT , 15 PLOT 9 , 15 PLOT 19 , 15 PLOT 29 , 15 PLOT 39 , 15 



ROW 16 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT , 16 PLOT 9 , 16 PLOT 19 , 16 PLOT 29 , 16 PLOT 39 , 16 



ROW 17 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT , 17 PLOT 9 , 17 PLOT 19 , 17 PLOT 29 , 17 PLOT 39 , 17 
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LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 



ROW 18 : 

HTAB 1 HTAB 10 HTA8 20 HTAB 30 HTAB 40 
PLOT , 18 PLOT 9 , 18 PLOT 19 , 18 PLOT 29 , 18 PLOT 39 , 18 



ROW 19 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT , 19 PLOT 9 , 19 PLOT 19 , 19 PLOT 29 , 19 PLOT 39 , 19 



ROW 20 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT , 20 PLOT 9 t 20 PLOT 19 , 20 PLOT 29 , 20 PLOT 39 , 20 



ROW 21 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT , 21 PLOT 9 , 21 PLOT 19 , 21 PLOT 29 , 21 PLOT 39 , 21 



ROW 22 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT , 22 PLOT 9 , 22 PLOT 19 , 22 PLOT 29 , 22 PLOT 39 , 22 



ROW 23 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT , 23 PLOT 9 , 23 PLOT 19 , 23 PLOT 29 , 23 PLOT 39 , 23 



ROW 24 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT , 24 PLOT 9 , 24 PLOT 19 , 24 PLOT 29 , 24 PLOT 39 , 24 



IBM PC SCREEN LOCATIONS 


LEFT EDGE 1/4 ACROSS 


1/2 ACROSS 


3/4 ACROSS 


RIGHT EDGE 


ROW 1 : COLUMN 1 COLUMN 20 
PSET , PSET 79 , PSET 


COLUMN 40 
159 ( PSET 


COLUMN 60 COLUMN 80 
239 f PSET 319 , 


ROW 2 : COLUMN 1 COLUMN 20 
PSET , 8 PSET 79 , 8 PSET 


COLUMN 40 
159 , 8 PSET 


COLUMN 60 COLUMN 80 
239 t 8 PSET 319 , 8 


ROW 3 : COLUMN 1 COLUMN 20 
PSET , 16 PSET 79 t 16 PSET 


COLUMN 40 
159 , 16 PSET 


COLUMN 60 COLUMN 80 
239 , 16 PSET 319 , 16 


ROW 4 :COLUMN 1 COLUMN 20 
PSET t 24 PSET 79 , 24 PSET 


COLUMN 40 
159 , 24 PSET 


COLUMN 60 COLUMN 80 
239 , 24 PSET 319 , 24 



ROW 5 : COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 32 PSET 79 , 32 PSET 159 , 32 PSET 239 , 32 PSET 319 , 32 
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LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 



ROW 6 : COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 40 PSET 79 » 40 PSET 159 , 40 PSET 239 , 40 PSET 319 , 40 



ROW 7 : COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 48 PSET 79 , 48 PSET 159 , 48 PSET 239 , 48 PSET 319 , 48 



ROW 8 : COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 56 PSET 79 f 56 PSET 159 , 56 PSET 239 , 56 PSET 319 , 56 

ROW 9 : COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 64 PSET 79 t 64 PSET 159 , 64 PSET 239 , 64 PSET 319 , 64 



ROW 10 : 

COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 72 PSET 79 , 72 PSET 159 , 72 PSET 239 , 72 PSET 319 , 72 



ROW 11 : 

COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 80 PSET 79 , 80 PSET 159 , 80 PSET 239 , 80 PSET 319 , 80 



ROW 12 : 

COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 88 PSET 79 , 88 PSET 159 , 88 PSET 239 , 88 PSET 319 , 88 



ROW 13 : 

COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 96 PSET 79 , 96 PSET 159 , 96 PSET 239 , 96 PSET 319 , 96 



ROW 14 : 

COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 104 PSET 79 , 104 PSET 159 , 104 PSET 239 , 104 PSET 319 , 104 



ROW 15 : 

COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 112 PSET 79 , 112 PSET 159 , 112 PSET 239 , 112 PSET 319 , 112 



ROW 16 : 

COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 120 PSET 79 , 120 PSET 159 , 120 PSET 239 , 120 PSET 319 , 120 



ROW 17 : 

COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 128 PSET 79 , 128 PSET 159 , 128 PSET 239 , 128 PSET 319 , 128 



ROW 18 : 

COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 136 PSET 79 , 136 PSET 159 , 136 PSET 239 , 136 PSET 319 , 136 



ROW 19 : 

COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 144 PSET 79 t 144 PSET 159 , 144 PSET 239 , 144 PSET 319 . 144 



ROW 20 : 

COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 152 PSET 79 , 152 PSET 159 , 152 PSET 239 , 152 PSET 319 , 152 
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LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 



ROW 21 : 

COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 160 PSET 79 t 160 PSET 159 , 160 PSET 239 , 160 PSET 319 , 160 



ROW 22 : 

COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 168 PSET 79 , 168 PSET 159 , 168 PSET 239 t 168 PSET 319 , 168 



ROW 23 : 

COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 176 PSET 79 , 176 PSET 159 , 176 PSET 239 , 176 PSET 319 , 176 



ROW 24 : 

COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET , 184 PSET 79 , 184 PSET 159 , 184 PSET 239 , 184 PSET 319 , 184 
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Appendix E 
Setting Up Your Games Disk 



If you have a disk drive, why not make a menu-driven disk with all of 
the games in this book, just like the software you buy? If your 
computer's BASIC has the chain command, or if you know how to 
address the disk drive from a program, you can make a professional 
looking games disk. The IBM and Apple versions of a menu program 
are included in this section. You may use these programs as a 
general guide for creating menu programs for other systems. 

MAKING A DISK FOR THE IBM PC 

To make a disk for the IBM PC, format the disk using the 
FORMAT /S command, so that the disk will be self-booting. Next, 
make an auto-exec file by doing the following : With your DOS disk 
in the disk drive, type the command EDLIN AUTOEXEC.BAT and 
press the enter key. If you have two drives and the formatted disk is 
in drive B, be sure to type EDLIN B AUTOEXEC.BAT. If you have 
one drive, take out the DOS disk and put in your formatted disk now. 

Press I and the enter key; when you see the number 1: , type 
BASICA MENU (or whatever you plan to call menu program) and 
press enter. Now type E and press the enter key. The auto-exec file 
will be saved on the disk in the drive you specified. (I'll bet that was 
easier than you thought!) 

You will need to copy BASICA.COM onto the disk; use the 
command COPY BASICA.COM B:; if you have two drives, the file 
will automatically copy onto the formatted disk in the B drive. If you 
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have one drive, put the formatted disk into the drive when in- 
structed by the monitor. 

Now, copy your game programs onto the newly formatted disk 
and add the menu program listed below. You will need to change all 
end statements in the game programs to CHAIN "MENU",! (if you 
have used a different file name for your menu and a different starting 
line number, substitute those for "MENU" and "10"). Also, if you 
renumbered any programs, remember that the chain statement in 
the menu program must refer to an existing line number; check your 
program to see what line number you want the computer to chain to. 

Menu Program for the IBM PC 

10 WIDTH 80: COLOR 7, 0,0: KEY 0FF:CLS 

20 LOCATE 10,25:PRINT "ADULT COMPUTER GAMES IN 

BASIC" 
30 PRINT: PRINT: PRINT TAB(38) "BY" 
40 PRINT:PRINT:PRINT TAB(32) "DAVID W. CHANCE" 
50 PRINT: PRINT: PRINT: PRINT: PRINT TAB(25)"IBM PC 

conversions by Tan A. Summers" 
60 PRINT: PRINT: INPUT "Press Enter For Menu",AA$ 
100 CLS:PRINT "1) HOLD TIME": PRINT: PRINT "2) 

ELEVATOR": PRINT: PRINT "3) FAREWELL": PRINT 
110 PRINT "4) MIND INVASION" :PRINT:PRINT "5) 

KNIGHTS" :PRINT:PRINT "6) INJECTION": PRINT 
120 PRINT "7) POINT A TO POINT B": PRINT: PRINT "8) 

INTERCEPT" 
130 PRINT: PRINT: PRINT "9) EXIT PROGRAM" 
140 PRINT 

150 PRINT "Press Space Bar for More Games" 
160 R$=INKEY$ 

170 IF R$="" THEN GOTO 160 
180 IF R$=" "THEN GOTO 200 
190 R=VAL(R$) 

195 ON R GOTO 310,320,330,340,350,360,370,380,390 
200 CLS:PRINT "1) INSOMNIA": PRINT: PRINT "2) 

LAP-THE-TRACK": PRINT: PRINT "3) BE PREPARED": PRINT 
210 PRINT "4) THE COURSE": PRINT: PRINT "5) TRAPPED" 

: PRINT: PRINT "6) RAINY DAZE ": PRINT 
220 PRINT "7) GENERAL STORE" : PRINT: PRINT "8) 

RAIN OF TERROR" 
230 PRINT: PRINT: PRINT "9) EXIT PROGRAM" 
240 PRINT 

250 PRINT "Press Space Bar for More Games" 
260 K$=INKEY$ 
270 IF !($="" THEN GOTO 260 
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280 IF K$=" "THEN GOTO 200 

290 K=VAL(K$) 

295 ON K GOTO 410, 420 ,'430 ,440, 450 ,460, 470, 480 ,490 

300 DEF SEG=0:IF (PEEK(&H410) AND &H30)O&H30 THEN 

DEF SEG:G0T0 100 
310 CHAIN "H0LDTIME M ,3 
320 CHAIN "ELEVATOR", 5 
330 CHAIN "FAREWELL", 5 
340 CHAIN "MINDJNV",25 

350 DEF SEG=0:IF (PEEK(&H410) AND &H30)O&H30 THEN 
DEF SEG:G0T0 359 

351 CLS: LOCATE 3,1 

352 PRINT "THIS PROGRAM REQUIRES THE COLOR /GRAPHICS 
ADAPTER. A SYSTEM CHECK" 

353 PRINT "SHOW THAT YOU ' RE NOT USING THAT ADAPTER. 
PRESS THE SPACE BAR" 

354 PRINT "TO CONTINUE": DEF SEG:GOTO 356 

355 IF INKEY$<>"" THEN GOTO 355 

356 CMD$=INKEY$ 

357 IF CMD$-"" THEN GOTO 356 

358 IF CMD$=" " THEN CLS: GOTO 100 

359 CHAIN "KNIGHTS", 5 

360 DEF SEG=0:IF (PEEK(&H410) AND &H30)O&H30 THEN 
DEF SEG:G0T0 369 

361 CLS: LOCATE 3,1 

362 PRINT "THIS PROGRAM REQUIRES THE COLOR /GRAPHICS 
ADAPTER. A SYSTEM CHECK" 

363 PRINT "SHOW THAT YOU'RE NOT USING THAT ADAPTER. 
PRESS THE SPACE BAR" 

364 PRINT "TO CONTINUE": DEF SEGrGOTO 366 

365 IF INKEY$<>"" THEN GOTO 365 

366 CMD$=INKEY$ 

367 IF CMD$-"" THEN GOTO 366 

368 IF CMD$=" " THEN CLS: GOTO 100 

369 CHAIN "INJECTOR", 5 

370 CHAIN "POINT", 5 
380 CHAIN "INTRCPT",3 
390 GOTO 999 

410 CHAIN "INSOMNIA", 20 
420 CHAIN "LAPTRACK",3 
430 CHAIN "BEPREP",5 
440 CHAIN "COURSE", 20 
450 CHAIN "TRAPPED", 5 
460 CHAIN "RAINYDAZ",5 
470 CHAIN "STORE", 3 
480 CHAIN "RAIN", 20 
490 GOTO 999 
999 END 



483 



MAKING A DISK FOR THE APPLE II 

Apple II users don't have to worry about formatting. Just write 
the menu program below with a new disk in the drive, and when you 
are satisfied, type INIT MENU (or whatever you want to call it), and 
press the return key. The menu program will automatically start 
each time the system is booted with that disk in the drive. 

However, you probably don't have the chain command to work 
with. Instead, at the end of each program put PRINT CHR$(4); 
"RUN MENU" in place of the end statement. The PRINT CHR$(4) 
statement tells the disk drive to reload your menu program. 

If you have another kind of computer and aren't sure how to 
make a menu-driven disk, try asking someone at the store where 
you bought your computer. Chances are, there's an easy way to do it 
for your computer, Loo. 

10 TEXT : HOME 
20 PRINT "1) MIND-INVASION" 
30 PRINT "2) RAIN" 
An PR J NT " 3 ) r * D ' ro * rv " 
50 PRINT "4) KNIGHTS" 
60 PRINT "5J INSOMNIA" 
70 PRINT "6) ELEVATOR" 
80 PRINT "7) FAREWELL" 
90 PRINT M 8) STORE" 
100 PRINT "9) RAINYDAZE" 
110 PRINT "10) TRAPPED" 
120 PRINT "11) INJECTION" 
130 PRINT "12) HOLDTIME" 
HO PRINT "13) BE PREPARED" 
145 D$ := CHR$ (4) 

150 PRINT : PRINT : PRINT "ENTER 
THE NUMBER OF THE GAME VOU 

WANT": INPUT "TO PLAY " ; A 
155 IF A > 14 OR A < 1 THEN 10 
160 ON A GOTO 170,180,190,200,21 

0, 220,230 , 240,250, 260,270,28 

0,290,300,310,320 
170 PRINT D$;"RUN MIND- INVASION" 

180 PRINT DS; "RUN RAIN" 

190 PRINT D$;"RUN LAPTRACK" 

200 PRINT D$;"RUN KNIGHTS" 

210 PRINT D$;"RUN INSOMNIA" 

220 PRINT D$;"RUN ELEVATOR" 

230 PRINT D$;"RUN FAREWELL" 
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240 PRINT D$;"RUN STORE" 

250 PRINT DS;"RUN RAINYDAZE" 

260 PRINT D$;"RUN TRAPPED" 

270 PRINT D$; M RUN INJECTION" 

280 PRINT D$;"RUN HOLDTIME" 

290 PRINT D$;"RUN BE PREPARED" 

300 HOME : END 
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Index 



Action games, 13, 42, 156, 182, 190, 

195, 212, 306, 314 
Amount on Board game, 271 
Apple II, adapting programs for, 469 

B 

Be prepared for the Apple II, 415 
Be Prepared for the IBM PC, 377 
Be Prepared game, 182 
Betting games, 271, 279 



Elevator for the Apple II, 439 

Elevator for the IBM PC, 331 

Elevator game, 234 

Else, 470 

Experiments with sound, 3 



Farewell for the Apple II, 446 

Farewell game 249 

From Point A to Point B game, 296 



Call routine, 9 

Chance games, 205 

CHR$, 469 

Clear command, 469 

CLS, 469 

Code games, 20, 28, 35, 165 

Columns, 471 

Course for the IBM PC, 381 

Course game, the, 13 



Dangerous Affair, 165 

Date Service game, 121 

Delay routines, 469 

Disk set up for the Apple II, 484 

Disk set up for the IBM PC, 481 

Driver's Test game, 42 



Games disks, 481 

General interest, games of, 59 

Genera! Store for the Apple II, 404 

General Store for the IBM PC, 394 

General Store game, 92 

Graphics, 473 

Guessing games, 50, 104, 288 

H 

Hold Time, 156 

Hold Time for the Apple II, 410 

Hold Time for the IBM PC, 326 

I 

IBM PC, adapting programs for, 469 
Injection for the Apple II, 464 
Injection for the IBM PC, 352 
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Injection game, 306 
INKEY$, 470 

Insomnia for the Apple II, 452 
Insomnia for the IBM PC, 369 
Insomnia program, 258 
Intercept for the IBM PC, 362 
Intercept game, 314 



Rain of Terror for the IBM PC, 400 
Rainy Daze for the Apple II, 455 
Rainy Daze for the IBM PC, 391 
Randomize statement, 470 
Respect Your Computer, 104 
Rnd, 470 



Key a Date game, 131 
Knights for the Apple II, 421 
Knights for the IBM PC, 347 
Knights game, 195 



Lap-the-Track for the Apple II, 458 
Lap-the-Track for the IBM PC, 372 
Lap-the-Track game, 279 
Love One Another game, 1 1 1 

M 

Master Code, 35 

Math-a-Code game, 28 

Mind Invasion for the Apple II, 426 

Mind Invasion for the IBM PC, 342 

Mind Invasion game, 212 

Monochrome monitor, 473 

N 

Numbers, random, 471 



Partners game, 288 

Party games, 61, 75, 104, 269 

Point A to Point B for the iBM PC, 356 

Print , 470 

Print using, 470 

Program listings for the Apple li, 403 

Program listings for the IBM PC, 325 

PSET, 472 



Rain of Terror, 1 90 

Rain of Terror for the Apple II, 419 



Screen formatting, 471 

Screen locations, Apple II, 476 

Screen locations, IBM PC, 478 

Screen locations, TRS-80, 475 

Set statement, 472 

Skill and logic, games of, 11 

Skill games, 92, 141, 172, 222, 234, 

249, 263, 296 
Sound effects, 473 
Sound experiments (TRS-80), 3 
Sound routine for the Apple II, 9-10 
Sound routine for the TRS-80, 1-3 
Squares game, 141 
STRINGS, 471 



Tab statement, 472 
Trapped for the Apple II, 431 
Trapped for the IBM PC, 384 
Trapped game, 222 
Triangle game, 205 
Troubles game, 75 



U 

USR statements, 9 



Variables, length of, 473 

W 

What Is it game, 50 

Where's the Necessary Room game, 

61 
Width of screen, 471 
Words-Zit game, 20 
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33 Adult Computer Games in BASIC 

If you are intrigued with the possibilities of the programs included in 33 
Adult Computer Games in BASIC for the TRS-80 m , Apple It/ He®, and 
IBM PC® 

(TAB BOOK No. 1627), you should definitely consider having the 
ready-to-run tape or disk containing the software applications. This 
software is guaranteed free of manufacturer's defects, (If you have any 
problems, return the tape or disk within 30 days, and we'll send you a 
new one.) Not only will you save the time and effort of typing the 
programs, the tape or disk eliminates the possibility of errors that can 
prevent the programs from functioning. Interested? 

Available on tape for the TRS-80, Models I and III, 16K. Available on 
disk fortheTRS-80, Models I and III, 32K;forthe Apple II, II plus, and//e, 
32K;andforthelBMPC,32K.Eachtapeordiskcosts$19.95plus$1 r 00 
each shipping and handling. Each disk costs $34.95 plus $1 .00 ship- 
ping and handling. 

I'm interested in ready-to-run software for 33 Adult Computer J 
Games in BASIC for the TRS~80 m , Apple ///lie® and IBM j 
PC®, Send me: ! 

1 
tape for the TRS-80, Models I and III, 16K (6034S) g 

disk for the TRS-80, Models I and II, 32K (6035S) 

disk for the Apple II, II plus, and lie, 32K (6235S) 

disk for the IBM PC, 32K (661 5S) § 

TAB BOOKS catalog | 

Check/Money Order enclosed for $ (In- | 

elude $19.95 for each tape or $34.95 for each disk | 

plus $1.00 shipping and handling). I 

VISA MasterCard | 



I 



Account No. „ Expires 

Name 

Address _ 



City State Zip | 

Signature „ — — j 

Mail To: TAB BOOKS INC. | 

Blue Ridge Summit, PA 17214 | 

(Pa. add 6% sales tax. Orders outside U.S. must be prepaid with i 

international money orders in US. dollars.) 1 

| TAB 1627 | 



33 Adult Computer Games in BASIC 



for the IBM PC 



® 



, Apple ll®///e® and TRS-80 

by David W. Chance 



TM 



Get set for a great new computer game-playing experience ... 33 
exciting action-packed games and puzzles designed especially for 
adult interests and abilities! Quick thinking and plenty of imagination 
are needed as you play word and math games, fast action graphic 
games, guessing games, games of chance, even party games for up 
to 10 players. 

Here are target and action games, a fascinating party game 
called "Doctor Chips" that has the computer assuming the role of your 
Dsychologist, a computer dating game, wildly funny games that will 
iven up any party, and much more. You can test your driving skills, find 
games that take full advantage of your micros sound and graphics 
potentials, unravel mysterious codes, see if you can keep up with the 
computer as you take a whirlwind grocery shopping tour, play games 
of chance (that you may, or may not win), and play games like 
"Insomnia", "Rainy Daze", "Elevator", "Dangerous Affair", and many 
others. 

Plus, these carefully written and fully explained programs make it 
easy for computer users to learn new programming techniques and to 
use different programming approaches for solving the same problem. 

So, if you're looking for games that are designed for adult enter- 
tainment, rather than the 'zap the aliens" variety that most youngsters 
prefer ... if you're interested in livening up your next party with some 
truly unique computer entertainment ... or if you'd like to improve your 
programming expertise while playing computer games, then this is the 
book you've been waiting for! 

David W. Chance is a computer programmer who has written 
many game programs for a variety of computer systems. He is the 
author of TAB's 33 Challenging Computer Games for the TRS-80 m / 
Apple T 7PE7®. 
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